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I- P DEPOSE AND BACKGROUND 



A. PUBPCSE 

The purpose of this thesis it to illustrate the design 
and use of an interpreter for the Extended Lambda Calculus 
(ELC) as described by MacLennan [Eef. 1 ]. Initially, 
however, it is important to understand why functional 
languages such as ELC are important and why they will become 
increasingly important in the future. To achieve this, a 
brief background sketch is presented to explain the events 
that have shaped the need for such languages. 

B. BACKGROUND 

During the brief history of Computer Science there has 
been a remarkably rapid evolution of computing hardware, 
while software development has for all practical purposes 
remained static. Throughout the last thirty years, improve- 
ments such as: decreasing component size, increased memory 

capacity, faster processor speeds and reduced hardware costs 
have occurred at regular intervals. This trend continues 
today in areas such as super computers like the Cray and 
Cyber and the rapidly changing micro computer industry. If 
one studies the evolution of computer software for the same 
time period, in particular programming languages, the same 
types of rapid improvements on a regular basis have not 
occurred. The first revolutionary development in program- 
ming languages occurred with the development of FORTRAN by 
Backus et al. in the mid 1950s. For the first time scien- 
tific programmers could write code that strongly resembled 
the equations they were working with. Practically all the 
programming languages developed since that time, perhaps 
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with the exception of LISP and APL, are basically the same 
underneath as Fortran. Of course there are some outward 
differences, such as sophisticated string and array handling 
mechanisms, but they are all seguentially processed and rely 
heavily on use of the assignment statement, variables and 
the notion of machine state. The early pioneers in program- 
ming languages are not totally at fault for the lack of 
progress. To understand this statement, a brief examination 
of the architecture these languages were written for is 
necessary. 

The great improvements in hardware development, 
mentioned previously, were also not fundamental until fairly 
recently. Hardware improvements remained superficial in 
that the majority of them were made on the same architec- 
ture, that proposed by von Neumann et al. in 1946. Briefly, 
the von Neumann architecture consists of a Central 

Processing Unit, a Memory used to store both programs and 

data, and some kind cf connection between the two capable of 
transmitting single words or addresses back and forth. 
Improvements have concentrated on decreasing size, 

increasing speed, etc. and have not been concerned about the 
basic design of the computer. The connection between the 

memory and the CPU is the reason why most programming 

languages are seguential in nature, forcing the user to deal 
with some fairly low level constructs such as incrementing 
counters and setting up iteration loops. Backus [Bef- 2] 
termed this connection the von Neumann bottleneck and also 
described conventional programming languages as just soft- 
ware versions of von Neumann machines. Computer architec- 
tures are starting to change, hcwever, and in order to gain 
the maximum benefit from them programming languages and 
techniques must change also. 

Throughout the development of new hardware systems the 
trend has been to increase speed by making components 
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smaller and smaller. Common sense dictates that eventually 
the ability to do this will become physically impossible. 
Does this mean that the ^uest to increase computation speed 
will stop? Obviously not. The most promising solution is 
to fully exploit parallel operations in data processing 
whenever possible. As explained by Stone [Ref. 3], much 
promising work has been accomplished in the fields of array, 
multiprocessor, and pipeline conputers, but there are still 
open research problems concerning how to properly organize 
and synchronize all these processors. In other words there 
is no effective software to manage parallel computer opera- 
tions. Conventional procamming languages, with their 
sequential nature, do not offer much hope as a solution. 
The functional programming languages, such as FP proposed by 
Backus [Bef. 2], or the Kent Recursive Calculater by Turner 
[Ref. 4], by their very nature lend themselves to parallel 
operations. This is illustrated in the next section. 

As stated previously, one of the biggest problems with 
conventional languages is the assignment statement. Backus 
[Ref. 2] calls the assignment statement the bottleneck of 
programming languages because at the heart of all conven- 
tional programs we find a myriad of assignment operations 
producing one word results. The programmer ust then 
concern himself with the flow of words through these assign- 
ment statements to achieve the desired results, instead of 
concerning himself with the problem as a whole. Another 
problem with the assignment statement is that it makes 
programs unreliable. Mathematical proofs do not lend them- 
selves well to statements. Consider someone trying to do a 
mathematical proof of the following statement. 

x := x+ 1 

That statement makes absolutely no sense mathematically. 
How can ’x’ be assigned the value of itself plus one? This 
statement is legal, however, in most conventional 



10 



programming languages and makes formal proofs of them 
extremely difficult as shown by the work of Hoare [Bef. 5]. 
Functional languages do away with the idea of the assignment 
statement and work only with expressions. Expressions, in 
contrast with statements, do posess mathematical properties. 
Backus [Bef. 2] has even shown that the functional language 
FP lends itself to an algebra cf programs that can allow for 
relativly simple proofs of program correctness. Since func- 
tional languages deal only with expressions, the idea of 
execution order becomes obsolete, as explained by MacLennan 
[Bef. 6]. One begins to understand how these languages can 
be used to exploit parallelism since several expressions 
could be solved simultaneously and then brought together to 
form a final result. 

Another advantage of functional programming is the 
compactness of the code written by programmers. Two exam- 
ples from the literature illustrate this fact very well. 
Backus shows in [Bef. 2] an FP program to calculate the 
factorial of an arbitrary integer n. The program is one 
line long, whereas the corresponding program written in PL/I 
is eight lines long. The two programs are shown in Figure 
1. 1 f cr comparison. An even more startling example was 
devised by Early [Bef. 7], where a two pass assembler was 
written in both FP and C for an artificial assembly 
language. The assembler written in C occupied 459 lines of 
non-ccmment source code, where as the FP assembler occupied 
249 lines, of which more than 100 lines were only a single 
character so as to aid in program readability and clarity. 
This fact could have far reaching effects in an attempt to 
solve the software crisis as presented by Turner [Bef- 4]. 
The fact that the code is more compact could mean increased 
programmer productivity since it is well known that program- 
ming time is roughly proportional to the number of lines of 
code regardless of the language being used. Also, since it 
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proc (n) recursive returns (fixed) ; 
del (n, v) fixed; 
if n < 2 

then v = 1; 

else v = n * fact(n - 1) ; 
return (v) : 
end fact; 

PI/I 



Figure 1.1 Factorial Program in FP and PL/I. 



is easier to prove functional programs correct, software 
maintenance costs could improve dramatically. Early's 
project also demonstrated this fact in that the assembler 
written in C took sixty hours tc complete compared to twenty 
for the FP version. One of the main reasons for this fact 
was that debugging time for the FP version was negligble. 
This was attributed to the fact that FP programs do what you 
expect of them since they are so easily proven correct. 
Functional languages are not without their critics and prob- 
lems, however, a fact which merits discussion. 

There are those that will argue that functional 
languages should not be used because they are not readable. 
This varies somewhat depending on the functional language 
being studied. In Figure 1.2 there are three examples of 
functions to take the sum of twe numbers. They are written 
in Backus' FP, Turner's KRC , and ELC. 

What does "readable" really mean? Is the ELC function 
more readable because it is obvious that a function is being 
called (because of the explicit use of the word "call") , or 
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♦ : < 1 , 2 > 

FP 

SUm Kfec ^ ^ 

<call <var sum> <con 1> <con 2» 
ELC 



Figure 1.2 Sub in Three Functional Languages. 

are the other implementations mere readable because of their 
conciseness? The pcint is that readability means different 
things to different people. It also depends to a certain 
degree on training. A programmer well versed in FP will 
undoubtedly feel comfortable with the FP version and might 
find the ELC notation too verbose and wasteful. On the 
other hand, a person not familiar with FP or KRC may be able 
to tell more about what the function is supposed to do by 
reading the ELC version. 

The conclusion is that the readability issue is not a 
good reason to abandon functional programming. Of course 
there is a certain amount of learning time required, as with 
any language, and it may even be more severe in this case 
due to the mathematical nature of these languages. However, 
if the benefits of exploiting parallelism and decreasing 
software maintenance costs can be achieved, they will far 
outweigh the disadvantage of a longer learning period. 

Another problem area that has kept the popularity of 
functional languages to a minimum is the halting problem as 
described by MacLennan [Ref. 6 ]. As stated, since func- 
tional programs are constructed from expressions, evaluation 
order does not matter. This is true, however, only for 
problems that halt. It is possible to write some functional 
programs in such an order that will cause them to go into 
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infinite loops. For examples of such programs see HacLennan 

[Ref. 6]. 

Is the halting problem a reason to disregard the value 
of functional progamming? If it is, then all other program- 
ming languages should be discarded. It is not unusual for 
programmers, using conventional languages, to occasionally 
write programs that go into infinite loops. 

Finally, another reason why functional programming 
languages are not currently popular is that they do not work 
very efficiently on conventional architectures. As stated 
previously, most current architectures are von Neumann in 
nature, meaning they are sequential. The result is that the 
inherent parallelism of the functional languages cannot be 
exploited. There is work being done to design new architec- 
tures, some specifically for functional languages. One of 
the most promising is the reduction architecture proposed by 
Mago, which is described in [Ref. 8]. 
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II. INTERPRETER OPERATIONS 



A. ASSUMPTIONS 

It is assumed that the reader has a working knowledge of 
recursion and recursive languages, in particular Pascal. If 
not refer tc Cooper [Ref. 9] fcr information. The reader 
must also have knowledge of the Extended Lambda Calculus as 
presented by HacLennan [Ref. 6]. Complete descriptions of 
these areas are beyond the scope of this report. 

The interpreter is a prototype system, so priorities 
were given to successful operation and to clarity of code 
rather than to efficiency. Efficiency was not completely 
forgotten and suggestions on future improvements in this 
area are given in Chapter 4, Conclusions. 

B. PASCAL IS THE IMPLEMENTATION LANGUAGE 

Pascal was chosen as the implementation language for the 
interpreter for two reasons. First, Pascal is the high 
level language taught to Computer Science students at the 
Naval Postgraduate School. I nplementa tion of the inter- 
preter in Pascal will thus facilitate its future use by 
students without the necessity of learning a new language. 
Second, using Pascal demonstrates that an interpreter of 
this type can be written in alnost any programming language 
providing that it has recursion. Pascal, however, is not 
the ideal language for this type of project. 

1 . Pascal Does Have Some Advan ta ges 

The principal advantage of Pascal is the ability to 
dynamically allocate memory, which takes the burden of 
managing an array or heap space away from the programmer. 
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Mem ry management is jvered in detail in Section F of this 
cha ter. The other advantage of Pascal is the clarity of 
the code as opposed to some other languages such as FORTRAN 
or C. Pascal is not as efficient as these other languages, 
but in a prototype system like this clarity is a higher 
priorit y . 

2 • Pascal * s Disadvantages are C ommonl y Known 

Pascal’s disadvantages for this particular implemen- 
tation are no different than any other; however there are 
two that deserve special mention. Pascal input-output 
facilities afe very awkward to use. Any ype of translating 
program, whether it be an interpreter or compiler, must scan 
an input program, either from a file or terminal, before 
execution. Pascal provides only for input to be read in one 
character at a time. This technique is obviously very inef- 
ficient, especially since it is well known that a good 
method of improving program efficiency is by reducing the 
number of I/O calls required. At a minimum, a better 
language would allow at least an identifier at a time to be 
read, while the ideal language would allow a large amount of 
data to be read into a buffer, which could then be scanned 
and used as needed, only more efficiently because it is in 
main memory. If the interpreter were reading from a disk, a 
logical amount of data to be read at one time would be an 
entire track. 

C. THE CELL AND THE REPRESENTATION OF ATOMS AND LISTS 

1 . Atoms 

In ELC, as in LISP, there are only two elements, 
atoms and lists. Atoms are ncn-divisible entities such as 
integ s, real numbers, characters, and identifiers. For a 
complete breakdown of atoms and the rest of the language 
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refer to the grammar in Appendix A. Lists are sequences of 
atoms or lists or atoms and lists separated by spaces and 
surrounded by angle brackets as in Figure 2.1. 



Clist a b c> 

Clist a b <list c d> e> 
<letrec append . . •> 



Figure 2. 1 ELC Lists. 

Atoms are used to represent information and data in 
the language, so the interpreter must have a way of repre- 
senting them. Simple records are not adequate, however, 
because there are several kinds of atoms and they must be 
distinguishable. The perfect choice is the variant record, 
which allows the same record structure to be used for all 
atoms while permitting some or all of the information to 
vary depending on the value of a tag field. These variant 
records are referred to as cells throughout the remainder of 
the report. Tags for the different atoms are: 

• boo (boolean values) 

• rea (real values) 

• (integer values) 

• alf (identifier; corresponds to Berkeley Pascal alfa 
type which is a string of ten characters) 



Figure 2.2 illustrates the Pascal represention of an atom 
cell. 
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Pointer 






ref = 0 
tag = int 
ival = 2 



Figure 2.2 Representation of a Cell Containing an Integer. 

2. What ab out list s? 

The atoms are the building blocks of ELC and, when 
placed in sequences form, the lists previously described, 
lists are also formed using variant records. Lists are 
naturally thought of as items that are grouped together 
because of a common bond. The linked list of Pascal is the 
natural method to use to represent these groups. This is 
clear because the interpreter needs to be able to create 
lists of varying lengths during execution. Since the size 
of Pascal arrays must be declared before program execution, 
their use to represent lists is impossible. A language with 
arrays that could grow dynamically would be more efficient 
to use in order to avoid the overhead required in main- 
taining Pascal pointers in linked lists. The list cell is 
shown in Figure 2.3. The basic cell structure is the same, 
except that the tag is now ’1st’ and the variant portion of 
the record contains two fields (head and tail) that are 
pointers to other cells. As mentioned previously, lists are 
sequences of atoms, lists, or atoms and lists surrounded by 
angle brackets. In crder for the interpreter to recognize 
where the angle brackets are, the tail field of certain 1st 

cells are set to nil. The representation of two simple 
lists is shown in Figures 2.4 and 2. 
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J ref 
I tag 



0 

1st 



< 1 head j tail] >Pointers to 

other cells. 



Figure 2.3 Pascal Representation of a List Cell. 



<a b c> 



— > I ref = 1 
I tag = 1st 



|head | tail|_ 






| ref = 1 1 


+->{ 


j tag = alf 
[aval = 'a' j 


i 



| head 1 tail| 



+-> 



ref = 1 I 
tag = alf ( 
aval = ' b’ | 



+--> I ref =1 

[tag = 1st 

_ |head 1 tail| 

I 

+ — >nil 

+->|ref = 1 J 
{tag = alf | 

| aval = *c» j 



Figure 2.4 Representation of a Simple List. 
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<a <b c> d> 



— > I ref = 1 | 

I tag = 1st 1 

| head | tail|_ 



1 



J ref = 1 I 


+-> j 


j tag = alf | 
| aval = ' a' j 


I 



I 

<4 

| head | tail|_ 



ref = 1 | 

tag = 1st | 

|head 1 tailj 



J ref = 1 
| tag = 1st 



+ — > I ref =1 

J tag - 1st 



__|head J tailj 



+-> I ref = 1 
tag = alf 
aval = 'b' 



+ — >nil 



Jhead | tail |_ 



+-> | ref = 1 J 
tag = alf | 
j aval = ' c' | 



tag = alf 
aval = ' d' 




Figure 2.5 List Within a List. 

The first list contains three atoms. It is easy to tell 
that there are three elements in the list by counting the 
cells that are tagged as lists (1st) . The information in 
the list is contained in other cells that are pointed to by 
the heads of the list cells. The tails of the list cells 
point to the next list cell, which in turn points to the 
next element in the list. The end of the list is repre- 
sented by the tail field of the last element being set to 
nil. The example in Figure 2. 5 is a list that has as one of 
its elements another list. Cnee again if you count the 
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number of 1st cells that are at the top of the Figure, there 
are three with the tail field of the 1st cell at the far 
right set to nil. Being consistent with the previous 
discussion this is a list containing three elements. The 
head of the second 1st cell, however, does not point to a 
leaf or information cell, it points to another 1st cell 
which forms the identical structure as previously seen. 
Again, the tail field of the last element in the internal 
list is nil, signifying the end of this list. 

D. E1C PROGRAMS 

1 . D efini tion 

An ELC program is nothing more than a list built in 
such a way that it can be evaluated by the interpreter. It 
is important to remember that cne program equals one list. 
Of course this one list usually consists of many other 
nested lists as its elements. 

2 . He a din g Prog rams 

Programs are read into the interpreter by the 
readval and readlist functions, which can be reviewed in 
Appendix C, Source Code. The reading process is started by 
the following line of the interpreter. 

printval { eval( readval, primitives)) 

The first function called is the readval function which 
determines the type of data being read by recognizing the 
first character of the input. Since a program is a list, 
the first character will obviously be a left angle bracket 
’<', transfer ing execution to the readlist function. 
Readlist builds the program into the same kind of structure 
as discussed in the last section. This is seen by first 
noticing that readlist calls readval again and the results 
are placed in a list through the cons function. A detailed 
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description of the primitive coes is covered in Section 3 f 
this chapter, but suffice it to say that cons forms e 

first element of the list represented as a cell pointed to 
by the head of a 1st cell with the tail set to nil. 
Additional cells are added by connecting them properly to 
the tail of the last cell read using the cons primitive and 
manual manipulation cf pointers. This is accomplished by 
the while loop in function readlist. This process continues 
until a right angle bracket is recognized, which of course 
signifies the end of a list. 

3 . Primitive Operations 

The following are the primitive operations provided 
by the interpreter and a brief explanation of each. Correct 
syntax for the language is covered in Appendix A. 

• First Takes a list and returns the first element, eg. 
the first of <a b c> is a. 

• !§§t Takes a list and returns a list containing every- 
thing but the first element, e.g., the rest of <a <b c 
d> e> is <<b c d> e>. 

• last Takes a list and returns the last element, e.g., 
the last of <a b c> is c. 

• In itia l Takes a list and returns all elements except the 
last, e.g., the initial of <a b c> is <a b>. 

• Cons Takes an atom or list and makes it the first 
element of a seccnd list. The second argument of a cons 
operation must be a list. 

cons a <b c> = <a b c> 

cons <a b> <c d> = <<a b> c d> 

• Ccnr Cons to the right. Conr is the opposite of the 
cons operation in that it makes an atom or list the last 
element of a seccnd list. 
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conr a <b c> = <b c a> 

conr <a b> <c d> = <c d <a b>> 



• Atom A Boolean function that determines if its argument 
is an atom. 

atom 'a' = true 

atom Clist a b c> = false 

• Null A Boolean function to determine if a list contains 
no elements. The last exauple is a list containing one 
element which happens to be a null list. 

null <> = true 
null <a> = false 
null «>> = false 

• 1 ina ry A ri t hme tic Operator s Each of the listed operators 
works for any m,n where m,n are two integers or two real 
numbers. 

sum m n 
subt m n 
prod m n 
divi m n 

• Tr igon ometr ic F unctio ns The following functions take 
single arguments cf angles in degrees. 

sin x 
cos x 
tan x 
cot x 
sec x 
esc x 

• Id Identity Function; simply returns the argument it is 
sent, eg. id 2 = 2 and id ’a' = ’a'. The purpose of 
this function is illustrated in example program x 
Appendix B which generates the table of sin, cos, tan 
for all angles from 0 to 90 degrees. 
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• Sub Returns a particular element from a list. Takes two 
arguments: a pointer to a list and an integer indicating 
the position of the desired element in a list. For 
example, sub (<A E C> 2 ) = B 

• Be_pr Takes a finite set (finset) as an argument and 
returns its ELC representation, which is simply a list. 

repr <finset a h c 1 2> = <a b c 1 2> 

• Len Determines the length of any list. 

len <a> = 1 
len < > = 0 
len <a <b c> d> = 3 

• Iflual Equal tests the equality of any two atoms or any 
two lists. 

equal <2 2> = true 

equal <a c> = false 

equal <a b c> <a b c> = true 

equal <a b c> <a <b> c> = false 

• GT Greater-than tests if argl is greater that arg2. 

GT argl arg2 = true/false 
GT 2 3 = false 
GT 5 1 = true 

The next three boolean primitives follow the same pattern 
as GT. 

• IT Less-than 

• GJ Greater-than or equal to 

• IE Less-than or equal to 

• Memb Member tests to see if argl is an element of arg2, 
which must be a list. 

memb argl <arg2> = true/false 
memb 2 <1 2 3> = true 
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memb <2> <1 2 3> = false 

memb <a b> <z t s <a b>> = true 

E. THE HEART OF THE INTERPRETER, THE EVAL FUNCTION 

The eval function. Figure 2.6, is the most important 
function in the interpreter. Eval acts as a decoder, deter- 
mining how each list sent to it is to be interpreted. This 
is accomplished by stripping off the first element of the 
list or program and then invoking a rule that corresponds to 
that first element. For example, if the program is 

<list a b c> 

eval will strip off the word "list" and return <a b c> as 
the result. Referring back to the line of code that starts 
program execution, it is seen that after the program 

is read in it is sent to the eval function along with a 
pointer called primitives. Primitives is a pointer to an 
association list which acts as an environment for executing 
the primitive operations discussed in the last section. For 
a detailed discussion of association lists and environments 
see MacLennan [Ref- 6]- The primitives association list is 
built initially by using the dcprim (declare primitives) 
function. An example of a part of the list is shown in 
Figure 2.7. The reason this primitives association list is 
constructed is to maintain consistency between how primitive 
and user defined functions are evaluated by the interpreter. 
This is discussed in more detail later in the next section. 

It is important to now look at the key words recognized 
by eval and the rules they invoke. By doing this, a 
complete understanding of the interpreter will be achieved. 

1 • Function E va 1’ s K eywor ds 

• lis t 'List' simply lets the interpreter know that this 
expression is a list, so eval returns the rest of the 
list sent to it. For example, if eval is sent 
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function eval 
var 1,0,61]; 
el :ali 

begin 

if atompj[e) 
else begin 

elp := first (e) ; 
el := e 1(>5). aval; 



(e, a: list) ; list 
: list; 



then eval := e 



eval := 



if el = 'list* -then eval := evlis(rest (e) , 
else if el = 'finset' then eval := e 

else if el = ’con' then eval := first ( rest 

else if el = 'var' then eval := assoc a, 

first ( r est je) ) ) 
else if el = 'Ietrec' then 
letrec (first ( rest(e) ) , 
first (rest (rest (e) ) ) , 
first (rest (rest (res t (e) ) 
else if el = ’lambda' then 
new (C, alf) ; 
cellcount(1. ’eval'); 
with Co) do begin 
= alf* 

:= 'closure'; 



a) 

(e) ) 



U 



/ .a) 

egin 



tag : 
aval 
end; 
eval := 
end (if 
else if el 
else if el 
eval := 



cons (a, nil) ) ; 

; = evcon ( rest (e) , 



cons ( cons(C,e) 
el = 'lambda'} 

= 'if' then eval 
= 'call' then 

apply (eval (first (rest (e) ), a) , 

evlis (rest (rest (e)) ,a) ) 
else if el = 'apply' then 

eval :=applv (eval (first (rest (e) ) ,a) , 
eval (first (rest (rest (e) ) ) , a) ) 
else if et = 'let' then begin 

(First, evaluate actual parameters and then 
form the environment of evaluation for the 
let statement} 

T:= pair lis (evlis (first ( first( rest (e) ) ) , 
evlis { firstfrer 1 - ( first ( rest (e) ) ) ) , a), 
eval := 

eval (first (rest (..est (first (rest (e) ) ) ) ) , 
end 

else errormsg ('eval') ; 
end 

end (Function eval} ; 

'3' Indicates pointer 



a) 



a) , 

a) 

T) ; 



Figure 2.6 Function Eval. 

<list a b c> 

the rest of the list or <a h c> is returned. 

• con 'Con' tells the interpreter that the remainder of 
the list is a constant, so it is returned as such. 
Examples are: 
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< <first <prim first>> <rest <prim rest>>. . . > 



Figure 2.7 Primitives Association List. 

<con 1> = 1 

<con <1 2 3 >> = <1 2 3> 

• yar The keyword var, tells the interpreter to search the 
current environment of execution for the value of a 
certain bound variable. for example, if <var x> was 
sent to eval and the association looked like 
<<x 5> <y ’Navy * > <z 1400>. . .> 
eval would return the value of 5 for x. The search of 
the association list is performed by the assoc function 
of the interpreter. Refer to the source code for the 
interpreter found in Appendix C for a more detailed 
discussion of the assoc function. 



Clambda <x> <call <var sum> <var x> <var x>>> 



Figure 2.8 Lam Ida Expression. 



• l am bda Lambda expressions are ELC’s analog to the proce- 
dure of conventional programming languages. These 
expressions are templates for solving certain problems 
using variables that must be bound to actual values 
before evaluation can take place. This template is 
commonly known as an abstraction. The example given in 
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where x 



2.8 is a lambda expression that can take any x, 
is an integer or real number, and add it to itself. it 
is currently not executable because no actual value for 
x is present. Since evaluation cannot be completed 
until later, the interpreter prepares the lambda expres- 
sion for future execution by forming a closure. This is 
accomplished by using the primitive cons to add the 
keyword ’closure’ to the front of the lambda expression 
and then using cons once again to add this to the front 
of the current environment, which has been placed in a 
list by itself. All that is left is to bind x with a 
value and add that to the current environment for execu- 
tion to take place. This is accomplished by the apply 
function, which is triggered by the keyword ’call’. 



<call <var sum> <con 2> <con 3>> 
Call to Primitive Function 



<call Clambda <x> Ccall <var sum> 

<var x> 

<var x>Xcon 5>> 
User Defined Function 



Figure 2.9 Using Call to Invoke Functions. 



• call The keyword ’call’ evokes the interpreter function 
apply to evaluate ELC function calls. The two simple 
examples given in Figure 2.9 are of a direct call to a 
primitive function and a call of the lambda expression 
discussed in the last section with the actual value of 
5. The execution of each is traced below. Refer to 
Figure 2.6 to follow the trace. 

<call < var sum> <con 2> <con 3>> 
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’call 1 is recognized by eval 

<var sum> is sent to eval with the current 
environment 

• var' is recognized by eval 

'sura 1 is looked up in the current environment 
by function assoc and <prim sum> is returned. 

The rest of the rest of the expression, which 
is «con 2> <con 2>> is sent to function evlis 
which in turn sends each of the elements of 
the list to function eval with the current 
environment. Evlis returns a list of the 
results. In this case <2 3> is sent to func- 
tion apply as the actual parameter. 

Function apply takes a function and applies it 
to a certain number of arguments. It acts 
somewhat like eval in that it strips off the 
first element of the list sent to it to deter- 
mine hew to precede. Since the first element 
is ’prim’ the interpreter knows that the 
following element is the name of a primitive 
function. The result is that the function 
name, 'sum’, and the arguments are sent to 
another function applyprim for final 
evaluation. 

sum, <2 3> are sent to applyprim. 

2, 3 are sent to function sum. 

A pointer to the answer is sent back eventu- 
ally reaching the initial call of function 
eval, the answer is printed, and evaluation 
stops. 
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- Note: The recursive nature of th interpreter 

is now clear, even for such a s. .pie program. 
This point affects efficiency and should be 
considered as an area for future improvement. 

<c a 11 <lambda <x> < call <var sum) 

<var x> 

<var x>>> < co n 5 >> 

- 'call* recognized 

- <lambda <x> <call <var sum) <var x> <var x»> 
sent to eval with current environment. 

- ’lambda* recognized and a closure is formed as 
follows «closure lambda <x> Ccall <var sum) 
<var x> <var x»> a > where a is the current 
environment. 

- <con 5> is sent tc eval; 5 is returned. 

- The closure and 5 are sent to function apply. 

- In function apply 'closure* is recognized, so 
the body of the function call <call <var sum) 
<var x> <var x» is sent to function eval. But 
an environment must be created before evalua- 
tion can be completed. 

- x, 5, and the current environment is sent to 
function pairlis where the new environment is 
created by forming an attribute value pair of 
x and 5, <x 5>, and adding this to the current 
environment. 

- Evaluation of the function now proceeds as the 
first example, except when <var x> is sent to 
eval the new environment is searched finding 
the value 5. 
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The consistency between how primitive and user 
defined functions are evaluated is now clear. This regu- 
larity aids the programmer because only one convention must 
be remembered to invoke all functions. 



<if <<call <var egual> <con 0> <con 3>> 
<con ’true’> 

<ccn 'false’>» 



Figure 2. 10 EIC Conditional. 



• if The keyword ’if’ signals that the remainder of the list 
is a conditional statement, so the rest of the list is sent 
to function evcon, which first determines the value of the 
first s ufclist, which must in turn be a call to one of the 
Boolean functions. In Figure 2.10, 

<call <var equal> <con 0> <con 3>> 
is the condition. Function evcon sends the conditional to 
function eval with the current environment of evaluation. 
If the condition is not a Boolean function call an error 
will occur. If the condition evaluates to true, the result 
of evcon is the evaluation of the next sublist by eval. If 
the condition is false, the result is the evaluation of the 
last sublist. In the example, since 0 and 3 are not equal 
the conditon is false so the last sublist is sent to eval, 
resulting in the constant ’false’ being returned. 

• Letrec The keyword 'letrec' is a signal to create a 
special environment for the evaluation of a recursive func- 
tion. See Figure 2.11. There are four elements that must 
be considered: 

• fun cti on na me In this case 'append' 
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• l ambd a expressio n The abstraction 

• of the le tree Call to the function itself or 
another letrec expression. 

• current en vironm ent 

As with the normal function call a closure is formed and 
this is added to the front of the current environment. The 
difference is that the environment part of the closure 
points back to the point where the closure was inserted in 
the current environment. This is done so the function can 
be recursively called if need be or other var parameters can 
be looked up in the environment. See Figure 2.11 to see how 
the environment for the append function is constructed. As 
stated, letrec statements can be nested by including them as 
the body of another letrec, thus allowing the programmer to 
call any of the recursive functions above it in the body of 
the last recursive function. These functions can only look 
back and not forward. For exaaples see Appendix B, Sample 
Programs. 

• Let The 'let' statement is siipiy a sugared version of the 
lambda statement and is included for clarity. Instead of 
writ ing 

<call <lambda<x> <call <var sum> 

<var x> 

<var x>» <con 5>> 

the let statement allows you to write the expression in 
Figure 2.12. In general, <let <<x...> <y...> <B>» means 
let x equal y in expression B. Any number of arguments can 
be included in the lists beginning with x and y. This type 
expression is particularly valuable if you want to assign a 
user defined function (lambda expression) a name which can 
then be called at any time. Consider the doubling function 
in Figure 2 . 12 . The doubling function could have been 
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Figure 2.11 Letrec Environment. 

accomplished using a single lambda expression as in Figure 
2.8, but the let statement makes the function call expres- 
sion 

<call <var double> <con 2>> 

clearer. Once again, expressions can be nested by inserting 
another 'let* statement for the B expression or even a 
'letrec* statement. Examples are given in Appendix C, 
Sample Programs. 



33 



1 



<let «double> <lambda <x> 

<call <var sum> 
<var x> 

<var x»> 

<call <var double> 
<con2>>>> 



Figure 2.12 Doubling Function. 



• lEiil The keyword ’apply’ triggers much the same action as 
’call', except the arguments to the function are placed in a 
separate list as in 



<apply <var sum> <list <con 2> 



<con 3»> 



The reason this feature is included is that 
useful ELC programs require that arguments 
before functions are applied to them. This 
accomplished if they are placed in a list so 
function call can reverse the elements. There 
tive function included to handle this situation 



some of the 
be reversed 
can only be 
a recursive 
is no primi- 



2 • Prin ting Res ult s 

After function eval has completed evaluation, the 
result is in a tree form exactly like that described for the 
program itself. A pointer to the top of this tree is passed 
to procedure printval, which simply walks the tree and 
prints the information found in the leaves. This is done by 
checking the tags of the cells. If a cell's tag is '1st', 
there is no information in the cell, only head and tail 
pointers. Since it is a list a left bracket must be 
printed. At that point the left and right cells are sent to 
printval recursively until a cell other than a '1st' cell is 
found. These cells are obviously leaves of the tree so the 
variant portion of the cell is printed. This continues 
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until a tail pointer of one of the '1st' cells is nil. This 
signals the end of the list sc a right bracket is printed 
and evaluation is completed. 

F. MEMORY MANAGEMENT 
1 . Ov e rvie w 

Throughout the execution of a program many of the 
cells that are created become useless because they can no 
longer be accessed. Good examples of this are any of the 
binary functions included in the interpreter as primitives. 
For example, consider the sum function. Figure 2.13. Notice 
that two pointers are delivered to the sum function which 
point to the cells that contain the numbers to be added. 
After these numbers ar added, the results are placed in 
another cell. The two cells that held the intermediate 
results are no longer needed and should be returned to a 
free list to be used again latter. Another example is the 
creation of new environments fcr lambda expressions before 
they are evaluated. After the evaluation of the lambda 
expression, the cells that made up the attribute value pair 
that was added to the current environment are no longer 
needed and should be returned. 

Since this is a prototype system, reference counting 
was chosen as the memory management method because of its 
simplicity and ease of installation. The model followed is 
outlined by MacLennan in [Ref. 6]. Reference counts refer 
to the number of pointers that a particular cell has refer- 
encing it at any one time. This count is kept in an addi- 
tional field in each cell. Refer to Figure 2.4 to see the 
reference counts for a simple list. Reference counts must 
be incremented if additional references to cells are made. 
Reference counts in cells must be decremented if references 
are destroyed. References can be destroyed by overwriting 
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function sumfx, y: list) : list; 
var R,I: list; 
begin 

if fxa) . tag=int) and (ya. tag=int) then begin 
if empty then begin 
new (I , int) ; 
cellcount (1 , ’sun'); 

end 
else 

I := freecell; 
with IS do begin 
ref : = 0 ; 
tag : = int; 

IS.ival := xS.ival + yS.ival; 
end; 

sum := I; 
end 

else if (xS.tag=rea) and (yS.tag=rea) then begin 
if empty then begin 
new (R , rea) ; 
cellcount(1, •sun*); 
end 
else 

R := freecell; 
with Ra> dc begin 
ref : = 0 ; 
tag : = rea ; 

RS.rval ;= xS.rval + yS.rval; 
end; 

sum : = R ; 
end 
else 

errormsg ( 'sum ') [Type mismatch} 
end; [Function sum} 

' S' Indicates Pointer 

j 



Figure 2. 13 Function Sum. 



pointers with other pointers by using an assignment state- 
ment or if the cell containing the pointer itself becomes 
inaccessible. Whenever a cell's reference count becomes 
zero it can be returned to the system because it is no 
longer accessible by the program. 

The interpreter manages reference counts through the 
use of four procedures: 

• ptrassn Overwrites pointers 

• 4®cr Decrements cell reference counts 
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• return Returns cells to the free list 

• fre ecel l Retrieves cells frcm the freelist 
Figure 2.14 shows how function ptrassn works. 
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Figure 2. 14 Function Ptrassn. 

First, the reference count of the cell that x points to is 
decremented. Next the reference count of y is incremented. 
Finally x is assigned the value of y. It is important that 
the assignment statement be done last so the reference count 
of x can be decremented. If not done x would no longer 
point to the correct cell and the reference count of y would 
actually be decremented. 

Procedure deer is used to decrement the reference 
counts of all cells. If a reference count of a cell goes to 
zero, deer is recursively called over the entire list until 
all cells with references of zero are found and returned to 
a freelist maintained by procedure return. 



37 



Procedure return links all the free cells together 
by first making them all ’1st' cells and linking them 
through the tail fields with the tail field of the last cell 
in the list being set to nil. 

Freecell is a procedure that is used to recover 
cells from the freelist instead of creating newcells by 
using the Pascal new facility. Each location in the inter- 
preter that needs to create new cells first checks to see if 
the freelist is empty. If it is not, a cell is taken from 
the freelist instead of creating a new one. Actually a 
freelist is not necessary. Cells could be returned to the 
system using Pascal’s dispose feature. Since this is a 
prototype system, the freelist is maintained to make it 
easier to maintain statistics cn the number of cells being 
returned. 

2. Con ve ntions 

a. Cell Creation 

The reference counts of cells are set to zero 
when they are created. This oust be done so that when a 
program is read into the interpreter reference counts in all 
cells are set to one. To understand this, study the cons 
function which is used to build up the program list when it 
is initially read. Cons uses the ptrassn procedure to set 
the head and tail of the connecting cells. If a cell is 
created during readin and its reference count is set to one, 
that reference count will go to two when that cell is sent 
to cons. The result is a reference count that is greater 
than it should be. If, however, the cell is created with a 
reference count of zero, it will be set to one when it is 
sent to cons, which in turn sets the head and tail of the 
connecting cell with the ptrassn procedure. The only 
special case that must be recognized is the cell at the very 
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top of the program tree which must be physically set to one 
after readin since it is never sent to the ptrassn 
procedure. 

b. Local Declarations 

If locally declared pointer variables are used 
to overwrite other pointers their reference counts must be 
decremented before the procedure they are declared in is 
completed. This is done because locally declared variables 
are only visible within the procedures they are declared in 
and then destroyed. If the reference counts they genereated 
are not decremented, excess reference counts to some cells 
are the result. 

c. Passed Parameters 

The reference counts of cells referenced by 
pointer variables passed to procedures or functions by value 
must be incremented upon entering the procedure and decre- 
mented when leaving the procedure. It is easy to see how 
cells can be recovered in this manner. If the reference 
count of a cell is zero when it enters a procedure it will 
be incremented to one during the execution of the procedure 
and then decremented to zero and reclaimed when the 
procedure is finished. 
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III. HUMAN INTERFACE 11TH THE INTERPRETER 



A. LOADING A PROGRAM 

The interpreter is activated by first compiling or 
interpreting it using the facilities of Berkeley Pascal 
under Unix 4.2 BSD as shown in the following example: 

Interpreted Code 

'pi' <filename of the interpreted '. p ' 

Compiled Code 

'pc' <filename of the interpreted' . p ' 

If interpreted, an executable file named 'obj' is created; 
if compiled, an executable file, 'a. out' is created. The 
complied version runs much faster as seen by the time of 
execution statistics located in Appendix B, Sample Programs. 
It is recommended that the names of these files be changed 
to something more intuitive, such as ' ELC* or 'Interp', 
etc- . 

The interpreter can be run in interactive mode or a 
program can be executed from another file. Interactive mode 
should only be used for short programs or if the interpreter 
is being used as a calculator to perform basic mathematical 
computations. The big drawback to interactive use is that 
no editing can be done on programs that are longer than one 
line when typing at the terminal. If interactive mode is 
desired, the following command should be issued. Interpreted 
code is assumed in all examples. 

obj i 

The 'i' toggle tells the interpreter that interactive mode 
is desired. A logon message with date and time appears 
next, followed by the prompt: 

Enter Expression 
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At this point programs can he typed directly from the 
terminal and executed. To step execution follow the last 

program with a '!'. A statistical summary is given showing 
the numler of cells created, nuaber of cells returned to the 
system, and time of execution before termination. 
Evaluation is successfully completed with the message 

Evaluation Completed. 

If a long program is to be executed, it is recommended to 
place it in a file so editing can be accomplished, if neces- 
sary. The command to interpret a program from a file is 

ob j 

The interpreter then responds with a prompt to ask for the 
name of the file where the program exists. 

File for ELC Program: 

The filename can be up to eighty characters in length. 

B. EXECUTION TRACE 

After the method of loading the program is determined, 
the user is questioned if a trace is desired. A trace 
prints out pertinent intermediate results as the program is 
executed to help in debugging. Two examples of items 
printed out are: each expression sent to function eval and 

results of looking up a var parameter in an association 
list. Not all expressions can be printed out because some 
structures are recursive and an attempt to print them out 
results in an infinite loop. To avoid infinite loops addi- 
tional questions are asked about the user's desire to print 
out certain structures when there is a possibility that they 
could be recursive. Invoking the trace facility obviously 
slows execution a great deal but can be quite helpful in 
debugging a program. 
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C. EBKOB MESSAGES 

The best way to become familiar with the interpreter’s 
error messages is to study the error handling procedure of 
the interpreter itself. Appendix C. The procedure is set up 
like a table displaying all the error messages and they can 
be easily traced back to their sources. The interpreter is 
designed to halt exection immediately upon detection of an 
error . 
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IV. CONCLUSIONS 



A. EFFICIENCY 

Appendix B contains statistical data for several ELC 
programs. Times for program execution are given for both 
interpreted and compiled versions of the interpreter. It is 
not suprising that the compiled version always ran much 
faster and is recommended for use. The interpreted version 
of the ELC interpreter was used throughout development, 
however, because it took half the time that compiling 
required. 

Profiles for all sample programs are also included in 
Appendix C. These profiles reveal hints on how the inter- 
preter could be more efficient. The data shows that the 
interpreter spends most of its time in the primitive func- 
tions, such as null, first, sum, etc.. Efficiency could be 
improved by writing these functions in a lower level 
language, such as assembly language, and then linking these 
modules in at run time. This wculd not be difficult because 
these functions are very short and they are all constructed 
in the same manner, e.g., all the Boolean functions are the 
same except for the condition being checked. When the lower 
level code is completed for one of the modules it could be 
used as a template for the others. 

Efficiency can also be improved by replacing the associ- 
ation list mechanism for looking up the value of variables. 
Since the pairlis function always adds new attribute value 
pairs to the front of the current environment before evalua- 
tion, it is clear that searching an association list is not 
always necessary because we knew the value is at the front 
of the list. A better method is to use an array to hold 
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these values and subscript them based on the number of 
scoping lines crossed in getting from a use of the variable 
to its definition. A detailed explanation of this method is 
given by MacLennan [fief. 6]. The beauty of this method is 
that it eliminates the overhead of managing the pointers of 
the association list and the need to recursively search it, 
both very expensive operations in terms of efficiency. 

Comparisons are also made in Appendix B between two 
recursive ELC programs and their Pascal counterparts. The 
programs calculate n factorial and generate the first n 
elements of the Fibonacci sequence. The Pascal programs run 
faster, which is not suprising because there is one less 
layer of software invloved in their execution. The time 
differences are less than a second, however, and with 
minimal improvements to the interpreter can be improved. 

Finally, a more efficient memory managing system should 
be implemented. Programs executed with the memory manager 
are very slow as can be seen by comparing the run times of 
the programs listed on the last page of Appendix B with 
their execution times without the memory manager. A mark 
and sweep system would be more efficient because the execu- 
tion of a program would not be impeded unless all the allo- 
cated memory was used. On the other hand, the reference 
counting system invokes memory management procedures and 
functions throughout program execution. Since most programs 
will not use all allocated memory they would run at near 
normal speed {normal speed being the time to execute a 
program without the memory manager) . The tradeoff is that 
the interpreter will have to allocate its own heap space and 
manage it. 
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B. STRUCTURING PROGRAMS 



Programs are contained in one list so they can be 
written in one line, but this does not always present a 
clear view of what the program does. A natural method of 

structuring ELC programs evolved through experience. The 
method is to stack the arguments of functions under their 
calls. For example, consider this call to the primitive 
function cons. 

<call <var cons> 

<list a b> 

<list c d e>> 

This convention becomes very useful in large programs when 
many functions must be nested. The conditional can be 
structured as 

<if <<call <boolean exp.> 

<True conseguert> 

<False conseguent>>> 

Once again the arguments are stacked for clarity. 

C. FUTURE IMPROVEMENTS 

Ihere are several improvements that can immediately be 
accomplished for the interpreter. 

The code could be made more English like. This could be 
done by writing a front end to translate a higher level code 
into the ElC code used in this report or by completely 
changing the ELC grammar. Shile making more readable 

programs this feature would decrease efficiency. 

In the opposite direction the code could be made more 
mathematical in nature, similar to the notation used by 
Backus in FP. The tradeoff in that case would be efficiency 
versus readability. 

A feature should also be added to allow data for the ELC 
programs to be read from the terminal or a file. Currently 
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data must be inserted in the pregram itself. This could be 
done easily by modifying the interpreter to recognize key 
words that trigger a read operation. 

Finally, the interpreter should be written in a more 
portable version of Pascal. Berkeley Pascal has several non 
standard features such as the alfa type that make its code 
machine dependent. 

D. LESSONS LEARNED 

Writing programs in ELC becomes easier with experience. 
This was primarily because detailed programs are built by 
combining several smaller programs. For example, the 
program that generates the trig table is made of six func- 
tions, each a program in its cwn right. Once the single 
function programs are tested, they can be easily and reli- 
ably used to build other programs. 

ELC programs also force the user to think about problems 
as a whole when programming. For example, when writing the 
append function one asks the question, "How would I physi- 
cally solve this problem?". The answer is by taking one 
element at a time from one list and adding that element to 
the second list until the first list is empty. That expla- 
nation is exactly how to solve the problem recursively and 
the ELC program reflects that. If a conventional language 
was used to solve the problem, however, the programmer would 
have to be concerned with many low level constructs such as 
assignment statements and counter variables. After seme 
experience, dealing with problems at a higher level became 
very comfortable, particularly because many of the problems 
encountered were solved using the same technique. 
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APPENDIX A 
ELC GRABMAR 

Note: * 1 denotes literal copy. 

ee denotes superscript, (eel means one or more> 

<ELC program> ::= atom! list | <recursive exp. > | <abstract ion>| 

<applicat ion> | <let> '!’ 

<recursive exp.> ::= '< letrec' <rec identifier> 

<lambda exp.> <body> *>' 

<body> ::= 'Ccall ' <rec identifier> <actuals>| 

<recursive exp. >j<let> '>' 

<rec identifier> : := <identifier> 

<identifier> : := <letter> ee 10 | «letter><number | le tter>>ee1 0 
Note: Ten or less letters. Corresponds to the Berkeley 

Pascal built in string, packed array 1..10 of char. 

<abstraction> ::= * < lambda' <bound variables> 

<abstraction body> ’>' 

<let> ::= '<let<’<bound variables> '<* 

<abstraction> J < application> | 

<primitive application >| 

<conditional> 1 <r ecursive exp.> '>' 

<application> ::= '<’ <lambda exp.> <actuals>ee1 '>' 

<bound variables> ::= <letter> ee1| <identifier> eel 

<abs traction body> : : = '< '<condit ional>J <prim cali>| 

<abstraction> '> ' 
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<conditional> 



1 < 1 i f<boolean exp.> 



<list>|<look var>|<const exp.>| 

<prim applic |<boolean exp.> 

<list> 1 <lockup var>J<const exp.>) 

<prim applic. > |<boolean exp.> 

<boolean exp.> • <call <var' <booleaa prim> *»' 

<boolean prim> ::= a tom | null | egual| memb| GT | LT| GE | LE 

<prim call> ::= '<var' <primnam€> ’>* 

<pri mname> : : =f irst | rest 1 cons | a tcm J null 1 sum | subt 1 prod 1 di vi |sub | 
equal Jlen) memb |repr|GT!LTlLE|GE 

<prim applic. <call ' <prim call><list>ee 1 | 

<iockup var>ee1 | <const exp.>ee1 *>* 

<list> : := '< list' <letter>ee1 | <letter>ee1 <list>eel! 

<number>ee1 <number>ee1 

<list>ee1 <letter> eel 

<number> eel ' >' 

<lookup var> ::= '< var * <lett er> J <identif ier> '>* 

<const exp.> : := * < con' <number>ee1 | <list> j <letter> ’>' 

<actuals> ::= <list> J <lookup var> | <const exp.> | 

<lookup var> <lookup var> 

<list> eel <list> eel 

<const. exp.> <const. exp.> 

<letter> ::= <a..z|A..Z> 

<number> ::= <digit>ee1 J<digit>ee1 <digit>ee1 

<digit> : : = <0 . . 9> 

<atom> :: letter | number|identif ier 
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APPENDIX B 
SAMPLE PROGRAMS 



Gene r al 

The statistics in this appendix are referred to as 
compiled versus interpreted. This means compiled and inter- 
preted versions of the ELC interpreter. Also all statistics 
refer to programs run on an interpreter without a memory 
manager. Run times are much slower when the memory manage- 
ment system is used. 

Funct io n Ap pen d 

P urp o se 

The append function concatenates lists. This is 
different than the primitive cons which makes its first 
argument the first element of another list. 

Pract ical A ppl ication 

Append could be useful if the argument lists were large 
databases that had to be combined. This is common practice 
in database work where many small databases are combined to 
form a whole. 

Source Co de 

Cletrec append 
<lamtda <L M> 

<if <<call <var null> <var L>> 

<var M> 

<call <var cons> 

<call <var subXvar LXcon 1>> 

Ccall <var append> 

<call <var restXvar L>> 

<var M>> >>>> 



<call <var append> 

<list <c _>n gXcon h> <cor. j>> 

<list <con q> <con rXcon s>>»! 

Results cf Append Function (Compiled Interpreter) 

Enter Expression 

<a , h f c t d , e , f , q t h/ i/ j # j / 1 » m, n / o t p f q t r , s f t > 
Evaluation Completed 

******************************* ************ *************** 



Sta tistics 



System time was 


183 


milliseconds 


User time was 


6 16 


milliseconds 



1 Module 


Cells created | 


1 — r 




1 


1 


| dcprim 


84 | 


j cons 


402 | 


| readiden 


57 | 


| readint 


1 I 


| letrec 


6 i 


| null 


11 1 


Total cells 


561 



Results of Append (EIC Interpreter interpreted by Berkeley 
Pascal) 

Enter Expression 

<a, b, c, d, e, f, q, h, i, j, j, 1, m, n, o, p, q, r, s, t> 
Evaluation Completed 

********************************************************** 
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System time was 
User time was 



Statist ics 



366 milliseconds 
6600 milliseconds 



| Module 

I 

i dcprim 
| cons 
| readiden 
| readint 
| letrec 
| null 



Cells created 

34 

402 

57 

1 

6 

11 



Total cells 



561 



Profile for append function 



Berkeley Pascal 


PXP -- Version 2. 


12 (5/11/83) 


Wed Dec 12 12:48 


1 984 test 1 1 . p 




Profiled Thu Dec 


13 09:05 1984 




Line 


Count 




1 


1 


f unc 


33 


21 


printval 


36 


505 


cellcount 


63 


1477 


nullp 


84 


3123 


first 


94 


1692 


rest 


122 


402 


cons 


258 


10 


sub 


539 


190 


atomp 


547 


1477 


nullp 


564 


1 1 


null 


599 


94 


assoc 


643 


33 


pairlis 


663 


21 


printval 



5 1 



702 


83 


r eadval 


704 


108 


nonblank 


714 


25 


reaalist 


77 0 


1 


readint 


827 


199 


digit 


83 5 


257 


letter 


843 


57 


readident 


867 


83 


readval 


879 


1 1 


evcon 


880 


157 


evlis 


881 


52 


apply 


882 


1 


letrec 


884 


190 


eval 


947 


1 


letrec 


1012 


1 1 


evcon 


1041 


157 


evlis 


1093 


41 


applyprim 


1198 


52 


apply 


1239 


28 


dcpr im 


1261 


1 


readf name 
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Function Reverse 



Pu rp ose 

Takes any list as an argument, reverses the elements of 
the list and places them in another list. 

Prac ti cal Applica tio n 

Reverse is used primarily as a sub-function for larger 
programs. It is the nature cf recursion that many times 
result lists are constructed in reverse order. The reverse 
function is then needed to regain the proper order. 

D isc ussi on 

There are two versions of reverse included, reverse and 
revaux. Reverse makes use of the primitive 'conr' to build 
the result list where revaux utilizes a null list, (<>) , to 
build the result list using a series of calls to 'cons'. It 
is interesting to study the differences in efficiency 
between the two functions. Reverse is faster and uses less 
memory. The reason is because the primitive conr was 
included in the interpreter, which shortens the number of 
steps required. Whether time and memory savings justify 
including another primitive in the interpreter depend on how 
often it is used. The use of the reverse function is 
minimal and would not justify including a primitive only for 
its use. 

S our ce Code 

<letrec reverse 
Clambda <L> 

<if «call <var null> <var L>> 

<con <>> 

<call <var conr> 

<call <var reverse) 

<call <var rest> <var L>>> 

<call <var sub> <var L> <con 1>>>>>> 
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<call <var reverse) <list abcdefghi j>>>> ! 



Results of reversing a ten element list (Compiled version) 
Enter Expression 
^ j t h# 9» <1 » c, b/ a> 

Evaluation Completed 

********************************************************** 

S ta t i s t ic s 



System time was 
User time was 


100 

516 


milliseconds 

milliseconds 


| Module 


Cells created | 


1 — 

| dcpr im 


84 


i 

1 


| cons 


323 


i 


| readiden 


42 


1 


| readint 


1 


1 


| let rec 


6 


1 


| null 


11 


1 


| conr 


9 


i 



Total cells 476 

Reversing a ten element list (interpreted) 

Enter Expression 

/ i/ / 9/ ^ b r a> 

Evaluation Completed 

********************************************************** 

Statis tics 

System time was 316 milliseconds 

User time was 5716 milliseconds 
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J Module 



Cells created 



1 

| dcpr im 


84 


1 

1 


Icons 


323 


1 


| readiden 


42 


1 


| readint 


1 


1 


| letrec 


6 


1 


| null 


11 


1 


| conr 


9 


1 


Total cells 


476 




Profile of reverse function 




Berkeley Pascal 


PXP — Version 


2. 


Wed Dec 12 12:48 


1984 test 11. 


E 


Profiled Thu Dec 


13 09:08 1984 




line 


Count 




1 


1 




33 


1 1 




36 


420 




63 


1349 




84 


2861 




94 


1545 




122 


323 




137 


10 




258 


10 




539 


169 




547 


1349 




564 


1 1 




599 


83 




643 


22 




663 


1 1 




702 


67 





12 (5/11/83) 



f unc 

printval 

cellcount 

nullp 

first 

rest 

cons 

conr 

sub 

atomp 

nullp 

null 

assoc 



55 



pair lis 
printval 
r eadval 



704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



91 


nonblank 


24 


readlist 


1 


r eadint 


167 


digit 


210 


letter 


42 


readident 


67 


r eadval 


1 1 


evcon 


135 


evlis 


52 


apply 


1 


letrec 


169 


e val 


1 


letrec 


11 


evcon 


135 


evlis 


41 


a pplyprim 


52 


apply 


28 


dcprim 


1 


readf name 
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Funct io n Be vau x 

Source C ode 

<letrec revaux 
Clambda <L M> 

<if <<call <var null> <var L>> 

<var M> 

<call <var revaux> 

<call <var rest> <var L>> 

<call <var cons> 

<call <var sub> <var L> <con 1>> 
<var M> 

»>» 

<call <var revaux> 

<list abcdefghij> 

<con <» >>! 

Results of Revaux (10 element list, compiled) 

Enter Expression 

<j/ i/ h, g, f, e, d, c, b, a> 

Evaluation Completed 

$*$$$$$$$ $$$$$$$$ $$$$$$$$$$$$$$$$$$ j$c $$$$$$$ # 

Statistics 

System time was 166 milliseconds 

User time was 566 milliseconds 



| Module 

I 

| dcprim 
| cons 
| readiden 
| r eadint 
| let re c 



Cells created 



84 
3 83 
47 
1 
6 



57 



1 null 



11 



Total cells 532 

Results of revaux (interpreted). 

Enter Expression 

<i, i/ h, 9* £, e, d , c, b, a> 

Evaluation Completed 

********************************************************** 

Statistics 

Systeir time was 366 milliseconds 

User time was 6333 milliseconds 



| Module Cells created 

I 

Idcprim 84 

Icons 383 

| readiden 47 

Jreadint 1 

lletrec 6 

| null 11 

Total cells 532 



Profile of Revaux 

Berkeley Pascal PXP — Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testll.p 
Profiled Fri Dec 14 22:46 1984 

Line Count 

1 1 func 

33 1 1 

36 476 
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prin tval 
ceilcount 



63 

84 

94 

122 

258 

539 

547 

564 

599 

643 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



1466 


nullp 


3104 


first 


1672 


rest 


383 


cons 


10 


sub 


180 


atomp 


1466 


nullp 


1 1 


null 


94 


assoc 


33 


pairlis 


74 


readval 


100 


nonblank 


26 


readlist 


1 


readint 


178 


digit 


226 


letter 


47 


readident 


74 


readval 


1 1 


evcon 


146 


e vlis 


52 


apply 


1 


letrec 


180 


eval 


1 


letrec 


1 1 


evcon 


146 


evlis 


41 


applyprim 


52 


apply 


28 


dcpr im 


1 


readf name 
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Ma p Functio nal 
Purpose 

Functionals are functions that return other functions as 
results. The map functional allows the user to take any 
unary function and apply it to the elements of a list, 
returning a list of the results. In this example, the sine 
function is mapped across a list of ten angles. 

Pract ical A ppl i cati on 

Map could be used extensively in business applications. 
An example would be an employee database where the same 
operations must be accomplished on many different records. 
If salaries were increased acrcss the board, a version of 
map could be used to achieve this. 

Source Code 

<letrec map 
Clambda <f> 

Ciambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <var cons) 

<call <var f> <call <var firstXvar L»> 
Ccall <call <var map> <var f>> 

<call <var rest> <var L»>>»» 
<call <cali <var map> <var sin» 

<list <con 45> <con 6 0 <con 90>>> >! 

Results of map functional (map sine) Compiled 
Enter Expression 

<0.707107, 0.866025, 1.000000, 0.913545, 0.573576, 

0.342020, 0.422618, 0.275637, 0.939693, 0.999391> 

Evaluation Completed 

**** ********** ********* **************** ******* ************ 
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System time was 
User time was 



Statist ics 

216 milliseconds 

683 milliseconds 



j Module Cells created 



Jdcprim 84 

Icons 445 

Ireadiden 52 

Ireadint 10 

| letrec 6 

|eval 11 

|null 11 

|sinp 10 



Total cells 629 

Map sine (interpreted) 

Enter Expression 

<0.707107, 0.866025, 1.000000, 0.913545, 0.573576, 
0.342020, 0.422618, 0.275637, 0.939693, 0.999391> 

Evaluation Completed 

Statistics 

System time was 416 milliseconds 

User time was 7666 milliseconds 



| Module Cells created 



Idcprim 84 

Icons 445 

Ireadiden 52 

Ireadint 10 



| letrec 


6 


1 


| ev al 


1 1 


1 


| null 


1 1 


1 


| sinp 


10 


1 


Total cells 


629 





Profiled Thu Dec 
Line 

1 

33 

36 

63 

84 

94 

122 

411 

539 

547 

564 

599 

643 

663 

702 

704 

714 

770 

827 

835 

843 



Version 
test 1 1 . p 
10:15 1984 

Count 

1 

11 

573 
1666 
3579 
1959 
445 
10 
212 
1666 
1 1 
104 
44 
1 1 
103 
144 
4 1 
10 
217 
279 
52 



2.12 (5/11/83) 



f unc 

print val 

cellcount 

nullp 

first 

rest 

cons 

sinp 

atomp 

nullp 

null 

assoc 

pair lis 

printval 

r eadval 

nonblank 

r eadlist 

readint 

digit 

letter 

readiaent 



Profile for map functional 
Berkeley Pascal PXP — 

Wed Dec 12 12:48 1984 

13 



62 



867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



103 


r eadval 


1 1 


evcon 


167 


evlis 


73 


apply 


1 


letrec 


212 


e val 


1 


letrec 


1 1 


evcon 


167 


evlis 


51 


applyprim 


73 


apply 


28 


dcpriin 


1 


r eadfname 
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Halving Function 
Purpose 

The halving function takes a list of numbers and returns 
a list of all the elements divided in half. There is really 
no practical application for this function but it demon- 
strates the use of the ' bu' functional which changes a 
binary operator to a unary operator. If you divide a list 
of integers by 2 it is more efficient to fix the second 
operand of the division instead of evaluating 2 as a 
constant each time the division takes place. 

Cletrec map 
<lambda <f> 

Clambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <var cons> 

Ccall <var f> <call <var firstXvar L»> 

<call <call <var map> <var f>> 

<call <var rest> <var L»>>»» 

<let <<bu> <<lambda <f k> 

<lamtda <x> 

<call <var f> <var k> <var x>>>> > 

<let <<revf> <<lambda <f> 

<lamlda <x y> 

<call <var f> <var y> <var x>>>>> 

Ccall 

Ccall Cvar map> 

Ccall Cvar bu> 

Ccall Cvar revf> Cvar divi>> 

Ccon 2»> 

Clist Ccon 4> Ccon 6> Ccon 8> Ccon 18>> 

>>>>>> ! 



Results of halving function (co mpiled) 
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Enter Expression 



< 2, 


3, 


4, S, 10, 


13, 


14, 


1 5> 


Evaluation 


Completed 




***************************************** 






Statistics 


System time was 


183 milliseconds 


User time 


was 


966 milliseconds 


1 Module 
1 _ _ 


Cells 


created | 


1 

| dcpr im 




1 

84 | 


| cons 




674 | 


| readiden 




37 | 


| readint 




11 1 


| letrec 




6 1 


| eval 




15 | 


| null 




11 1 


| divi 




10 | 


Total cells 


898 


Results of 


halving (interpreted) 


Enter Expression 




< 2, 


3, 


4, S, 10, 


13, 


14, 


1 5> 



11 , 



12 , 



11 , 



12 , 



Evaluation Completed 

********************************************************** 

Statistics 

Systeir time was 483 milliseconds 
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Jser time was 



10183 milliseconds 



| Module 

1 


Cells creat 


1 

| dcprim 


84 


| cons 


674 


| readiden 


87 


1 readint 


1 1 


| letrec 


6 


| ev al 


15 


| null 


11 


| divi 


10 



Total cells 



898 



Profile for halving function (use of bu) . 



Berkeley Pascal 


PXP -- Version 2. 


12 (5/11/83) 


Wed Dec 12 12:48 


1984 test 1 1 . p 




Profiled Thu Dec 


13 10 :03 1984 




Line 


C ount 




1 


1 


f unc 


33 


1 1 


printval 


36 


842 


cellcount 


63 


2057 


nullp 


84 


4420 


first 


94 


2494 


rest 


122 


674 


cons 


233 


10 


divi 


539 


305 


atomp 


547 


2057 


nullp 


564 


1 1 


null 


599 


166 


assoc 
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643 

663 

702 

704 

714 

770 

827 

83 5 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



103 


pair lis 


11 


printval 


168 


r eadval 


238 


nonblank 


70 


r eadlist 


1 1 


readint 


350 


digit 


448 


letter 


87 


readident 


168 


readval 


1 1 


evcon 


240 


evlis 


95 


apply 


1 


letrec 


305 


eval 


1 


letrec 


1 1 


evcon 


240 


evlis 


51 


applyprim 


95 


apply 


28 


dcpr im 


1 


readf name 
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Collating function 
Purpose 

Collate takes two sorted lists and merges them into one 
sorted list. 

Prac ti ca l Appli cat ion 

Sorting and collating are standard office functions that 
benefit from automation. A sorting function needs to be 
combined with collate to initially sort the sublists. 

Source Cede 



<letrec collate 



Clamfcda <L «> 



<if <<call <var null> <var L>> 
<var H> 



<if <<call <var 
<var I> 

<if «call 



<call 



<call 



null> <var M>> 
<var LE> 



<call 


Cvar 


sub> 


<var 


L> 


<con 


1» 


<call 


<var 


sub> 


<var 


M> 


<con 


1»> 


<var cons> 












<call 


A 

< 

P> 

n 


sub> 


<var 


L> 


<con 


1» 


<cal 1 


<var 


colla te> 









<call <var rest> <var 1>> 
<var il>>> 

<var cons> 

<call <var sub> <var M> <con 1 >> 
<call <var collate> 

<var L> 

<call<var rest> 



< var M>>>>>> »»> 

<call<var col la te>< list 2 5 6 £ 12><list 3 3 6 7 9 1 0 > » ! 



Result of Collate Function, Compiled 
Enter Expression 
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< 2 , 3 , 3 / 5 / 6 , 6 / 7 , 

8 , 9 , 10 , 12 > 

Evaluation Completed 



£***** 4 *$***********$*# ** ** ******************************* 

Statistics 

Systeii time was 166 milliseconds 

User time was 1066 milliseconds 



1 Module 

1 _ _ _ _ _ 


Cells created 


i 

1 

1 


1 

1 dcprim 


84 


| cons 


531 


1 


| readiden 


80 


1 


| readint 


15 


1 


| letrec 


6 


1 


| null 


22 


1 


| LE 


10 


1 


Total cells 


748 





Collate function (interpreted) 

Enter Expression 

< 2, 3, 3, 5, 6, 6, 7, 

8, 9, 10, 1 2 > 

Evaluation Completed 

******************************* *************************** 

Statistics 

System time was 633 milliseconds 

User time was 11316 milliseconds 
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| Module 



Cells created 



| dcprim 


84 J 


| cons 


531 | 


| readiden 


80 | 


| r eadint 


15 | 


| letrec 


6 1 


| null 


22 | 


| LE 


10 | 


Total cells 


748 


Profile for collate function 


Berkeley Pascal 


PXP — Version 2 


Wed Dec 12 12:48 


1 984 test 1 1 . p 


Profiled Thu Dec 


13 10:07 1984 


line 


Count 


1 


1 


33 


12 


36 


692 


63 


2566 


84 


5526 


94 


2921 


122 


531 


258 


30 


384 


10 


394 


10 


539 


335 


547 


2566 


564 


22 


599 


166 


643 


33 



(5/1 1/83) 



unc 

printval 

cellcount 

nullp 

first 

rest 

cons 

sub 

LSp 

LE 

a tomp 

nullp 

null 

assoc 

pairlis 
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663 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



12 


printval 


150 


readval 


205 


nonblank 


55 


readlist 


15 


r eadint 


332 


digit 


427 


let ter 


80 


readident 


150 


readval 


32 


evcon 


260 


evlis 


93 


apply 


1 


letrec 


335 


eval 


1 


letrec 


32 


evcon 


260 


evlis 


82 


applyprim 


93 


apply 


28 


dcprim 


1 


r eadf name 
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Comp osition Functional 
Purpose 

Composition allows the output of one function to act as 
the input to another function. 

Pr act ical A ppl i catio n 

Composition could be used in business applications as a 
way of querying a database with multiple conditions. For 
example, utilizing the filter function, a user could ask for 
records of employees that satisfy a certain condition and 
then apply another call to filter with a further refined 
condition such as all employees in department 5 that make 
more than two thousand dollars a week. In this example 
mapsin and reverse are composed. The composition function 
is named dot to correspond to Backus's FP language which 
actually includes this as an operator in the language. 

S our ce C ed e 

<letrec reverse 
<lambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <var conr> 

<call <var reverse> 

<call <var rest> <var L>>> 

<call <var sub> <var L> <con 1» >>>> 



<letrec mapsin 
<lambda <L > 

<if <<call <var null > <var L >> 

<con <>> 

<call <var cons > 

<call <var sin > 

<call <var first Xvar L >>> 
<call <var mapsin > 
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<call <var rest > 



< var L >>> >>>> 



<let «dot> <<lambda <f1 £2> 



<lambda <x> 

<call <var £1Xcall<var f2Xvar x»>>» 



<call 



<call <var dot> <var mapsin> <var reverse» 
<list <con 45> <con 60> <con 90>> »»> 1 

Results of compositcn (compiled) 

Enter Expression 

<1.000000, 0.866025, 0.707107> 

Evaluation Completed 



System time was 
User time was 



Statistics 
250 milliseconds 
616 milliseconds 



| Module 



Cells created 



i dcpr im 
| cons 
1 readi ien 
| readint 
| letrec 



395 

85 



84 



12 



4 



I eval 
I null 
I conr 
| sinp 



2 



8 



3 



2 



Total cells 



595 



73 



Results cf compositon (interpreted) 

Enter Expression 

<1.000000, 0.866025, 0.707107> 

Evaluation Completed 

** * * ********* * *** ***** **** ******************************** 

Sta tis tics 

System time was 583 milliseconds 

User time was 5966 milliseconds 



IModule Cells create! 



1 — 

i dcpr im 


84 


J 

1 


Icons 


395 


1 


| readiden 


85 


1 


| readint 


4 


1 


1 let rec 


12 


1 


| eval 


2 


1 


| null 


8 


1 


| conr 


2 


1 


| sinp 


3 


1 


Total cells 


595 





Berkeley Pascal 
Wed Dec 12 12:48 
Profiled Mon Dec 

Line 


PXP — Version 2. 
1984 test 1 1 . p 
17 18:51 1984 

C cunt 


12 (5/11/83) 


1 


1 


f unc 


33 


4 


printval 


36 


539 


celicount 


63 


988 


nullp 


84 


2111 


first 



74 



94 

122 

137 

258 

41 1 

539 

547 

564 

599 

643 

663 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



1 148 


rest 


39 5 


cons 


3 


conr 


3 


sub 


3 


sinp 


123 


a tomp 


988 


nullp 


8 


null 


61 


assoc 


23 


pairlis 


4 


printval 


154 


readval 


219 


nonblank 


65 


readlist 


4 


r eadint 


377 


digit 


466 


letter 


85 


reaaident 


154 


readval 


8 


evcon 


96 


evlis 


39 


apply 


2 


letrec 


123 


e val 


2 


letrec 


8 


evcon 


96 


evlis 


29 


applyprim 


39 


apply 


28 


dcprim 


1 


r eadfname 
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Freg u en cy T abl e generator 



Purp ose 

This program taxes a finite set of text and creates a 
frequency table of the words used and how many times they 
are used. 



P rac tical A ppl i cat ion 

This program could be usefcl if extended to recognize 
patterns in large blocks of data. Also, in military intel- 
ligence work, it could be vaulabie to see how many times a 
persons name appears in a newspaper to gain some insight 
into how important they might be. 



Cletrec dom 



Clambda <L> 

<if <<cail <var null> <var L>> 

<con <>> 

<call <var cons> 

<call <var first> 

Ccall <var first> <var L>>> 
<call Cvar dom> 

<call <var rest> 

<var L>>>>>>> 



<letrec isfinfunc 



Clambda <T> 

<if CCcall Cvar null> Cvar T>> 

Ccon true> 

<if CCcall Cvar eyual> 

Ccall Cvar len> 

Ccall Cvar first> Cvar T»> 
Ccon 2>> 

Cif CCcall Cvar equal> 

<ca.l' Cvar memb> 

call Cvar first> 

Ccall Cvar dom> 
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<var T>>> 

<call <var rest> 

<call <var dom> 

<var T>>>> 

<con true>> 

<con false> 

<call <var isfinfunc> 

<call <var rest> 

<var T»>>> 

<con false>>>>>> 

<letrec overlay 
<lambda <T pr> 

<if <<call <var equal> 

<call <var isfinfunc> <var T>> 

<con true>> 

<if <<call <var null> <var T>> 

<call <var cons> <var pr> <con <»> 

<if <<call <var equal> 

<call <var first> <var pr>> 
<call <var first> 

<call<var first> 

<var T»>> 

<call <var overlay> 

<call <var rest> <var T>> 

<var pr>> 

<call <var cons> 

<call <var first> <var T>> 

<call <var overlay> 

<call <var rest> <var T>> 
<var pr>»»» 

<con Tnotffunc»>> 

<letrec lookup 
<lamtda <T k> 

<if <<call <var null> <var T>> 

<con notfound> 
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<if <<call <var egual> 

<var k> 

<call Cvar first> 

<call <var first> <var T>>>> 
<call <var first> 

<call <var rest> 

<call <var first> <var T>>>> 
<call <var lookup> 

<call <vai rest> <var T>> 

<var k>> 

»>» 

<let <<occur> CClambda Cv F> 

<if <<call <var egual> 

<call <var memb> 

<var w> 

Ccall <var dom> 
<var F>>> 

Cc on true>> 

<call <var lookup> 

<var F> 

< v ar w > > 

<coi 0»»> 

<letrec freg 
<lambda <T> 

<if <<call <var nuli> <var T>> 

<con <>> 

Ccall Cvar overlay> 

Ccall Cvar freg> 

Ccall Cvar rest> Cvar T>>> 

Ccall Cvar cons> 

Ccall Cvar first> Cvar T>> 

Ccall Cvar cocs> 

Ccall Cvar sum> 

Ccall Cvar occur> 

Ccall Cvar first> 
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<var T>> 



<call <var freq> 

<call <var rest> 
<var T»» 



<con 1>> 
<ccn <>»»>>> 



<call <var 


fr eq> 




<call 


<var repr> 




<finset This 


is the block of text>»>>>>>>>! 


Results of 


frequency 


table generator (compiled) 


Enter Expression 




<<t ext. 


1> 




, <of. 


1> 




, <fclock. 


1> 




, <the. 


1> 




/ <is. 


1> 




, <This, 


1> 




> 






Evaluation 


Completed 




:************** $*************** S****************** ******** 






Statistics 


Systeir time was 


49 16 milliseconds 


User time 


was 157966 milliseconds 


| Module 

1 


Cells 


created | 


1 

1 dcpr im 




1 

84 | 


| cons 




49559 1 


| readiden 




313 J 


j readint 




3 1 


I letrec 




30 | 


J eval 




1 1 
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| null 4554 
j meml 666 
|equal 1806 
|sum 255 
|len 411 



Total cells 57682 



Results of frequency table gen erator (inter preted) 
Enter Expression 



<<text , 1> 

, <of, 1> 

, <block, 1> 

, <the, 1> 

, <is, 1> 

, <This, 1> 

> 



Evaluation Completed 

Statistics 

Systeii time was 23900 milliseconds 

User time was 1990866 milliseconds 



| Module 

j 

| dcprim 
| cons 
| readiden 
| readint 
| let re c 
| ev al 
I null 
| raemt 



Cells created 



84 

49559 

313 

3 

30 

1 

45 54 
6bo 



80 



| equal 
j sum 
|len 



1806 

255 

411 



I 



Total cells 57682 

Profile for frequency table function. 

Berkeley Pascal PXP — Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testll.p 



Profiled Thu Dec 13 10:20 



Line 


Count 


1 


1 


33 


19 


36 


57626 


62 


1806 


63 


664983 


84 


1404922 


94 


743026 


122 


4 9559 


158 


255 


273 


2267 


291 


1806 


539 


70799 


547 


664983 


564 


4554 


576 


1233 


587 


41 1 


599 


36403 


643 


1 0367 


663 


19 


702 


530 


704 


744 


714 


214 



1984 

f unc 

printval 

cellcount 

equal 

nullp 

first 

rest 

cons 

sum 

egualp 

equal 

a tomp 

nullp 

null 

lenp 

len 

assoc 

pairlis 

printval 

read val 

nonblank 

readlist 



81 



770 


3 


readint 


827 


1393 


digit 


835 


1709 


letter 


843 


313 


readident 


867 


530 


read val 


879 


6360 


evcon 


880 


53265 


evlis 


881 


23613 


apply 


882 


5 


letrec 


884 


70799 


eval 


947 


5 


letrec 


1012 


6360 


evcon 


1041 


53265 


evlis 


1061 


1115 


membp 


1071 


66 6 


memb 


1083 


1 


isf inset 


1093 


18804 


applyprim 


1198 


23613 


apply 


1239 


28 


dcprim 


1261 


1 


r eadfname 



82 



Factorial functi on 

Pu rp ose Computes the factorial cf n, where n = 0, 1, 2 , ... 

Discussi on 

Factorial functions written in ELC and Pascal have been 
included to compare the relative efficiency of the inter- 
preter versus a conventional high level language compiler. 
Factorial is computed for n = 1 to 10. The results are not 
suprising in that the Pascal version is much faster. 

Source Code (ELC) 

Cletrec fact 
<lamfcda <n> 

<if <<call <var egual> <var n> <con 0>> 

<con 1> 

<call <var prod> 

<var n> 

<call <var fact> 

<call <var subt> <var n> <con 1>» 

>>>> 

<call <var fact> <con 10>> 

Results of ELC factorial function for n = 1..10 
fact (0) 

Enter Expression 

1 

Evaluation Completed 

*************** *** ********* *********************** ******** 



System time was 
User time was 



Statis tics 
83 milliseconds 
233 milliseconds 



1 Mo dule 



Cells created 



83 



Idcprim 84 
Icons 202 
Ireadiden 30 
Ireadint 4 
|le tree 6 
(equal 1 



Total cells 327 

fact (1) 



Enter Expression 

1 

Evaluation Completed 

Statistics 

System time was 83 milliseconds 

User time was 266 milliseconds 



| Module 

I 

| deprim 
| cons 
1 readiden 
| readint 
| let rec 
| equal 
| subt 
| prod 



Total cells 



Cells created 



84 

212 

30 

4 

6 

2 

1 

1 



340 



fact (2) 

Enter Expression 
2 

Evaluation Completed 



84 



********************************************************** 



Statistics 

System time was 133 milliseconds 

User time was 233 milliseconds 



| Module 

, 

1 dcprim 
| cons 
| readiden 
1 readint 
| let rec 
| equal 
| suit 
1 prod 



Cells created 



84 

222 

30 

4 

6 

3 

2 

2 



Total cells 353 

fact (3) 

Enter Expression 
6 

Evaluation Completed 

****** * ******* ******************************************** 

Statistics 

System time was 133 milliseconds 

User time was 266 milliseconds 



| Module 

I 

| dcprim 
I cons 
1 readiden 
| readint 



Cells created 



84 

232 

30 

4 



85 



I 



j letrec 
| equal 
| subt 
| prod 



6 

4 

3 

3 



I 



Total cells 366 

fact (4) 

Enter Expression 
24 

Evaluation Completed 



*** * ********** ************** 





Stat 


System time was 


216 


User time was 


283 



****************************** 

istics 

mil li seconds 
milliseconds 



| Module 

1 

| dcpr im 
| cons 
| readiden 
| readint 
1 letrec 
| equal 
| subt 
| prod 

Total cells 379 

fact (5) 

Enter Expression 
120 

Evaluation Completed 

******* *********** ** ******* **** 4 ************************** 



Cells created 



84 

242 

30 

4 
6 

5 
4 
4 



86 



System time was 
User time was 



Statist ics 

116 milliseconds 

350 milliseconds 



| Module 

j 

| dcprim 
| cons 
j readiden 
| r eadint 
| letrec 
| equal 
| subt 
| prod 



Total cells 



Cells created 



84 

252 

30 

4 
6 
6 

5 
5 



392 



fact (6) 

Enter Expression 
720 

Evaluation Completed 



*** * * *** ** * J$e J$e ** ** * ** * ** ** * £ * *$*************** * * # 

Statistics 

System time was 116 milliseconds 

User time was 416 milliseconds 



| Module 


Cells crea 


1 

I dcprim 


84 


| cons 


262 


J readiden 


30 


j readint 


4 


| letrec 


6 


| equal 


7 



87 



| subt 
I Pi 3d 



I 



Total cells 405 

fact (7) 

Enter Expression 
5040 

Evaluation Completed 

**********************************************:***:********* 

Statistics 

System time was 133 milliseconds 

User time was 400 milliseconds 



| Module 

I 

1 dcprim 
| cons 
| readiden 
1 readint 
| letrec 
| egu al 
| subt 
| prod 



Cells created 



84 

272 

30 

4 

6 

8 

7 

7 



Total cells 418 

fact (8) 

Enter Expression 
40320 

Evaluation Completed 

%********$: ***%*** **************************************** * 

Statis t ics 

System time was 133 milliseconds 



88 



User time was 



433 milliseconds 



J Module 


Cells crea 


1 

J dcpr im 


84 


| cons 


282 


| readiden 


30 


| readint 


4 


1 letrec 


6 


1 egual 


9 


| subt 


8 


| prod 


8 



Total cells 431 

fact (9) 

Enter Expression 
362880 

Evaluation Completed 

****************** * * * * * * * * * * * * ************************* * * * 

Sta tistics 

System time was 150 milliseconds 

User time was 450 milliseconds 



| Module 


Cells crea 


1 

| dcpr im 


84 


| cons 


292 


I readiden 


30 


| readint 


4 


| letrec 


6 


I e g u a 1 


10 


1 subt 


9 


J prod 


9 



89 



Total cells 444 

fact (1 0) 

Enter Expression 
3628800 

Evaluation Completed 

*********%************************************************ 

Statistics 

Systeir time was 133 milliseconds 

User time was 450 milliseconds 



| Mo dule 



| dcpr im 
| cons 
| readiden 
| readint 
| let rec 
| equal 
| suit 
| prod 



Total cells 



Cells created 



34 

302 

30 

4 

6 

11 

10 

10 



457 



90 



Factorial function written in Berkely Pascal 
Source C od e 

program fact (input, output) ; 
var ans,n:integer ; 

function factorial(n:integer) :integer; 
var f act : integ er ; 
begin 

if n = 0 then 
fact := 1 
else 

fact := n * (factorial (n - 1)) ; 
factorial := fact; 
end; {function factorial} 

begin 

writeln (' Input n; • ) ; 
readln (n) ; 

ans := factorial ( n) ; 
writeln (ans) ; 

writeln (' System Clock ' , sysclock; 10 , ’ millisec'); 
writeln (' User Clock ',clock:10 ,' millisec’); 
end. {Program fact} 

Sesults of factorial function in Berkeley Pascal, n= 1..10. 
Input n=0 



1 



System Clock 
User Clock 



33 millisec 
16 millisec 



Input n=1 



1 

System Clock 
User Clock 



33 millisec 
0 millisec 
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Input n=2 
2 

System Clock 
User Clock 

Input n=3 
6 

System Clock 
User Clock 

Input n=4 
24 

System Clock 
User Clock 

Input n=5 
120 

System Clock 
User Clock 

Input n=6 
720 

System Clock 
User Clock 

Input n=7 
5040 

System Clock 
User Clock 



33 millisec 
0 millisec 



33 millisec 
0 millisec 



33 millisec 
0 millisec 



33 millisec 
0 millisec 



33 millisec 
j millisec 



16 millisec 
16 millisec 
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Input n = 8 
40320 

System Clock 
User Clock 



33 millisec 
0 millisec 



Input n=9 
362880 

System Clock 
User Clock 



33 millisec 
0 millisec 



Input n=10 
3628800 



System Clock 


66 millisec 




User Clock 


16 millisec 




Profile for ELC 


factorial function 




Berkeley Pascal 


PXP -- Version 2.12 


(5/11/83) 


Wed Dec 12 12:43 


1984 test 1 1 . p 




Profiled Thu Dec 


13 09:56 1984 




Line 


Count 




1 


1 f unc 


33 


1 


printval 


36 


401 


cellcount 


62 


1 1 


equal 


63 


954 


nullp 


84 


2064 


first 


94 


1132 


rest 


122 


30 2 


cons 


183 


10 


subt 


208 


10 


prod 


273 


1 1 


equalp 


291 


1 1 


equal 


539 


150 


atomp 



93 



547 


954 


nullp 


599 


73 


assoc 


643 


22 


pairlis 


663 


1 


printval 


7 02 


56 


readval 


704 


78 


nonblank 


714 


22 


readlist 


741 


0 


readrea 


770 


4 


readint 


827 


129 


digit 


835 


163 


letter 


843 


30 


readident 


867 


56 


readval 


879 


1 1 


evcon 


880 


115 


evlis 


881 


42 


apply 


882 


1 


letrec 


884 


150 


eval 


947 


1 


letrec 


1012 


1 1 


evcon 


1041 


115 


evlis 


1093 


31 


applyprim 


1198 


42 


apply 


1239 


28 


dcpr im 


1261 


1 


reaaf name 
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Fibonacci Seq uenc e G enerati on fro gram (No ’let’ statement) 
Purp ose 

This program generates the first n elements of the fibo- 
nacci sequence. 

D isc u ssio n 

This function is educational in that it shows how effi- 
ciency of ELC programs can be improved through the use of 
the ’let* statement. The definition of the Fibonacci 
sequence is: 

fib (1) = <1> 

fib (2) = <1 1> 

fib (n = 3, 4, . . .) = 

cons { (fib (n- 1) sub 1) + (f ib (n-2) sub 2}), fib(n-l)), 

where sub 1 , 2 means subscript. 

The time consuming part of this function, when written in 
ELC, is calculating fib of n- 1 three times to find the next 
element of the sequence. This can oe avoided by using a let 
statement to calculate fib(n-l) only once for each itera- 
tion. The system time taken tc generate fib (10) when using 
the let statement was approximately .2 seconds compared to 
13 seconds when a ’let' was not used. This in not suprising 
since when not using the 'let* the time of execution will 
increase exponentially as n increases. 

Notice also that due to the nature of recursive 
construction of lists the sequence is constructed in reverse 
order. To correct this the reverse function is included and 
applied to the generated sequence before printing. 

Source Code 

<letrec reverse 
<lambda <L> 

<if <<call <var null> <var L>> 

<con <>> 
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<call <var conr> 

<call <var reverse) 

<call <vax rest) <var L>>> 

<call <var sub) <var L> <con 1>> >>>> 

<letrec fibo 
Clambda <n> 

<if <<call <var egual> <var n> <con 0>> 

<con <>> 

<if <<call <var egual> <var n> <con 1>> 

<con <1» 

<if<<call <var egual> <var n> <con 2>> 

< ccn <1 1» 

<call <var ccns> 

<call <var sum) 

<call <var sub> 

<call <var fibo> 

<call <var subt> 
<var n> 
<con 1»> 

<con 1>> 

<call <var sub) 

<call <var fibo> 

<call <var subt) 
<var n> 
<con 1»> 

<con 2>» 

<call <var fibo) 

<call <var subt) <var n> <con 1»» 

»»>» 

<call <var reverse) 

<call <var fibo> <con 10>»>>! 

Results of fib (3.. 10) without a let statement 
fib (3) 

Enter Expression 
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< 1 , 1 , 2 > 

Evaluaticn Completed 

**** *********** ******************************************* 





Statistics 


System time was 


183 milliseconds 


User time was 


733 milliseconds 



Module Cells created | 



1 - 

| dcpr im 


1 

84 | 


| cons 


428 | 


| readiden 


105 | 


| readint 


11 1 


1 letrec 


12 | 


1 equal 


12 | 


| suit 


3 1 


| sum 


1 1 


| null 


4 I 


| conr 


2 1 


Total cells 


662 


fib (4) 

Enter Expression 

< 1, 1, 

Evaluation Completed 


2, 3> 



********************************************************** 





Statistics 


System time was 


166 milliseconds 


User time was 


1250 milliseconds 
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| Module Cells 


created 


1 

I 




1 

| dcpr im 


84 


1 

1 




| cons 


570 


1 




| readiden 


105 


1 




| readint 


11 


1 




| letrec 


12 


1 




| equal 


39 


1 




| subt 


12 


1 




] sum 


4 


1 




| null 


5 


1 




| conr 


3 


1 




Total cells 


845 






fib (5) 

Enter Expression 

< 1, 1, 

Evaluation Completed 


2, 


3, 


5> 



**** ****** ***************** 


******************************* 




Sta 


tistics 


System time was 


216 


mil liseconds 


User time was 


2566 


milliseconds 


| Module 
1 


Cells created 1 

i 


1 

| dcpr im 


84 


i 

1 


| cons 


976 


1 


| re adiden 


105 


1 


| readint 


11 


1 


| letrec 


12 


1 


| equal 


120 


1 


| su fct 


39 


1 
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|sum 


13 | 


| null 


6 1 


| conr 


4 1 


Total cells 


1370 


fib (6) 

Enter Expression 

< 1, 1/ 

Evaluation Completed 


2, 3/ 5, 8> 



************** *********************************** ********* 





Statistics 


System time was 


300 milliseconds 


User time was 


6350 milliseconds 



| Module Cells created 



1 dcprim 


84 | 


1 cons 


2174 | 


| readiden 


105 | 


1 readint 


11 1 


| letrec 


12 | 


1 equal 


3 63 | 


| subt 


120 | 


| sum 


40 | 


| null 


7 1 


I conr 


5 ] 


Total cells 


2921 


fib (7) 

Enter Expression 

< 1/ 1, 

Evaluation Completed 


2, 3 , 5, 8 , 1 3> 
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********************************************************** 



Statist ics 

System time was 666 milliseconds 

User time was 17766 milliseconds 



| Module 


Cells crea 


1 

j dcprim 


84 


| cons 


5748 


j readiden 


105 


| readint 


11 


| letrec 


12 


| equal 


1092 


| suit 


363 


| sum 


121 


I null 


8 


| conr 


6 



Total cells 7550 

fib (8) 

Enter Expression 

< 1 / 1 / 2 , 3 / 5 , 8 , 1 3 / 

2 1 > 

Evaluation Completed 

*********************** ** * * * * * * ** ************************* 

Statistics 

System time was 1633 milliseconds 

User time was 51716 milliseconds 



| Module Cells created | 

, I 



100 



| dcpr im 


84 | 


| cons 


16450 | 


j readiden 


105 | 


| readint 


11 1 


| letrec 


12 | 


j equal 


3279 | 


| subt 


1092 | 


| sum 


364 | 


| null 


9 1 


| conr 


7 1 


Total cells 


21413 



fib (9) 

Enter Expression 

< 1, 1, 2, 3, 5, 8, 13, 

21, 34> 

Evaluation Completed 

******************************* ** ************************* 





Statistics 


System time was 


4650 milliseconds 


User time was 


154450 milliseconds 



| Module Cells created 



| dcpr im 


84 | 


j cons 


48536 | 


| readiden 


105 | 


| readint 


11 1 


I letrec 


12 | 


I equal 


9840 | 


I subt 


3279 | 


I sum 


1093 | 


I null 


10 1 



101 



I conr 



8 



Total cells 62978 

fib (10) 

Enter Expression 

< ^ / 1 / 2 , w , 5 , 

8, 13, 21, 34, 55> 

Evaluation Completed 

****** 4 :*** *********** ************************************* 

Statist ics 

System time was 13100 milliseconds 

User time was 458S83 milliseconds 



J Module 

i 


Cells created 


1 


1 

| dcpr im 


84 


1 

1 


1 cons 


144774 


1 


J readiden 


105 


1 


1 readint 


11 


1 


| letrec 


12 


1 


| equal 


29523 


1 


| subt 


9840 


1 


| sum 


3280 


1 


1 null 


11 


1 


| conr 


9 


1 



Total cells 187649 

************************************************** *************** 
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ELC Program to generate the Fibonacci Sequence (Using a let 
statement) 

Source Code 



<letrec reverse 
<lamhda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <vax conr> 

<call <var reverse> 

<call <var rest> <var L>>> 

<call <var sub> <var L> <con 1 >>>>>> 

<letrec fibo 
<lambda <n> 

<if <<call <var equal> <var n> <con 0>> 

<con <>> 

<if <<call <var egual> <var n> <con 1>> 

<con <1>> 

<if<<call <var egual> <var n> <con 2>> 

<con <1 1>> 

<let <<f> <<call <var fibo> 

<call <var subt> 

<var n> 

<con 1>>>> 

<call <var cons> 

<call <var sum> 

<call <var first> 
<var f>> 

<call <var first> 
<call<var rest> 
<var f»» 



< var f>>>>>>>>>>> 



<call <var reverse> 

<call <var fibo> <con 1 0 > » > > I 
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Results of fibonacci generating function with 'let' 
stat ement 
fib (3.. 10) 

fib (3) 

Enter Expression 

< 1 , 1 , 2 > 

Evaluation Completed 

$**$*****$$****$$*$$£*$£*£* 4 :*$$ ** ************************* 

Statistics 

System time was 133 milliseconds 

User time was 700 milliseconds 



| Mo dule 
| 


Cells crea 


1 

| dcprim 


84 


| cons 


392 


| readiden 


95 


| readint 


9 


| letrec 


12 


| eyual 


6 


| subt 


1 


| sum 


1 


I null 


4 


1 conr 


2 



Total cells 606 

fib (4) 

Enter Expression 

< 1, 1, 2, 3> 

Evaluation Completed 

*********************** ** ** * * * * ************ ******* ***** *** 
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System time was 
User time was 



Statistics 

183 milliseconds 

783 milliseconds 



| Module Cells created 



| dcprim 


84 | 


| cons 


427 | 


| readiden 


95 | 


| readint 


9 1 


| letrec 


12 | 


| equal 


9 1 


| subt 


2 1 


| su m 


2 1 


| null 


5 1 


| conr 


3 | 


Total cells 


648 


fib (5) 

Enter Expression 

< 1, 1, 

Evaluation Completed 


2, 3, 5> 



********************************************************** 





Statistics 


System time was 


166 milliseconds 


User time was 


866 milliseconds 


| Module Cells 


created | 


l 

| dcprim 


1 

84 | 


| cons 


462 | 


| readiden 


95 | 
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| readint 
| let rec 
| equal 
| subt 
| sum 
j null 
| conr 


9 1 

12 | 

12 j 

3 1 

3 1 

6 1 

4 1 


Total cells 
fib (6) 

Enter Expression 


690 


< 1, 1, 


2, 3, 5, 


Evaluation Completed 


Statistics 


System time was 


133 milliseconds 


User time was 


10 66 milliseconds 


| Module Cells 


created | 


1 __ 

| dcprim 


1 

84 | 


| cons 


497 1 


| readiden 


95 | 


j readint 


9 1 


| let rec 


12 | 


| equal 


15 | 


| subt 


4 1 


| sum 


4 1 


j null 


7 | 


| conr 


5 | 



8> 



Total cells 



732 
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1 3> 



fib (7) 

Enter Expression 

< 1, 1, 2, 3, 5, 8, 

Evaluation Completed 



* ************************** ****** ***************** ***#**$# 

Statistics 



System time was 
User time was 


183 

1100 


milliseconds 
mil liseconds 






j Module Cells 

I 


created | 

1 






1 

| dcprim 


84 


i 

1 






| cons 


532 


i 






| r eadiden 


95 


1 






j readint 


9 


1 






| let rec 


12 


1 






J eyual 


18 


1 






| subt 


5 


1 






] sum 


5 


1 






| null 


8 


1 






| conr 


6 


1 






Total cells 


774 








fib (8) 










Enter Expression 










< 1, 1, 


2, 


3/ 5, 


8, 


13, 


2 1> 










Evaluation Completed 










*************** ******** 


*********************************** 




Statist ics 






System time was 


183 


mil liseconds 






User time was 


1216 


milliseconds 
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| Module 



Cells created 



| dcpr im 


84 


| cons 


567 


| readiden 


95 


| readint 


9 


| let rec 


12 


| equal 


21 


1 suit 


6 


j sum 


6 


| null 


9 


| conr 


7 



Total cells 816 

fib (9) 

Enter Expression 

< 1, 1, 2/ 3, 5, 8, 13, 

21, 34 > 

Evaluation Completed 

**** ** ******** ************** ** ************************* *** 

Statistics 

System time was 200 milliseconds 

User time was 1300 milliseconds 



| Module 


Cells crea 


1 

| dcprim 


84 


| cons 


602 


| readiden 


95 


| readint 


9 


1 letrec 


12 



lequal 24 

Jsubt 7 

| sum 7 

| nu 11 10 

|conr 8 



Total cells 


85 


8 


fib (10 






Enter Expression 






< 1, 1, 


2 , 


*3 5 


8 / 13 , 


21 , 


3H, 55> 


Evaluation Completed 






************************** 


**************** 




Sta 


tistics 


System time was 


166 


milliseconds 


User time was 


1466 


mil liseconds 


| Module Cells 

I 


created | 

1 


1 

1 dcprim 


84 


i 

1 


| cons 


637 


1 


| readiden 


95 


1 


J readint 


9 


I 


| letrec 


12 


1 


| equal 


27 


1 


| subt 


8 


1 


| sum 


8 


\ 


I null 


11 


l 


1 conr 


9 


1 



Total cells 



900 
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Pascal Source Code for Fibonacci Sequence Generator 

program fib (input, output) ; 
const max =100 ; 

type seg = 1 . . max of integer; 
var fitseg: seg; 
n,c: integer; 

procedure f ib (n,i : integer) ; 
begin 

if i <= n then begin 

if (i = 1) or (i = 2) then begin 
f ibseg (. i. ) := 1 ; 

fib (n, i + 1) ; 
end 

else if i >= 3 then begin 

fibseg(.i.) := fibseg (.i-1. ) + fibseg ( .i-2.) 
f ib (n, i + 1); 
end 
end; 

end; {procedure fib) 
begin 

writeln {' Input n: '); 

read (n) ; 
fib (n, 1) ; 

for c := 1 to max do begir 
if fibseg (.c.) <> 0 then 
write (f ibseg (. c. ) ) '• 
end; 

writeln; 

writeln (' System time 1 , sysclock : 10, ' millisec'); 
writeln (' User time ',clock:10,' millisec'); 
end. {Program fib} 

Results of fibonacci sequence generator in Pascal 
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fib (3) 

Input n: 

1 

System time 
User time 

fib (4) 

Input n: 

1 

System time 
User time 

fib {5) 

Input n: 

1 

System time 
User time 

fib (6) 

Input n: 

1 

8 

System time 
User time 

fib (7) 

Input n: 

1 

8 

System time 
User time 

fib (8) 

Input n: 

1 

8 

System time 



1 2 

33 millisec 
0 millisec 



1 2 

50 millisec 
0 millisec 



1 2 

33 millisec 
0 millisec 



1 2 

33 millisec 
0 millisec 



1 2 
13 

33 millisec 
0 millisec 



1 2 
13 21 

33 millisec 



3 



3 



3 



3 



3 



5 



5 



5 



5 
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User time 



0 millisec 



fib (9) 
Input n: 



1 


1 2 


3 


8 


13 21 


34 


System time 


33 millisec 




User time 


0 millisec 




fib (10) 






Input n: 






1 


1 2 


3 


8 


13 21 


34 ! 


System time 


33 millisec 




User time 


0 millisec 




Profile for SIC 


fibonacci sequence generating f 


Berkeley Pascal 


PXP — Version 


2.12 (5/11/83) 


Wed Dec 12 12:48 


1 984 test 11. 


F 


Profiled Thu Dec 


13 09:41 1984 




Line 


Count 




1 


1 


f unc 


33 


1 1 


printval 


36 


844 


cellcount 


62 


27 


equal 


63 


3862 


nullp 


84 


8188 


first 


94 


4372 


rest 


122 


637 


cons 


137 


10 


conr 


158 


8 


sum 


183 


8 


subt 


258 


10 


sub 


273 


27 


equalp 


291 


27 


equal 



5 

55 



112 



539 

547 

564 

599 

643 

663 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



466 


atomp 


3862 


nullp 


1 1 


null 


226 


assoc 


56 


pairlis 


1 1 


printval 


180 


readval 


256 


nonblank 


76 


readlist 


9 


readint 


410 


digit 


514 


letter 


95 


readident 


180 


readval 


38 


evcon 


375 


evlis 


136 


apply 


2 


letrec 


466 


eval 


2 


letrec 


38 


evcon 


375 


evlis 


116 


applyprim 


136 


apply 


28 


dcprim 


1 


readf name 
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l£.L§£.I£2 Genera t in g fu nctio n 



Pu r pose 

Generates a sequence of natural numbers from m to n, 
where m,n are two natural numbers and m < n. 

Pr act ical Ap p li ca tion 

Interval is very useful when generating tables of infor- 
mation. In the next example interval is used to generate a 
table of trigonometric values for all angles between 0 and 
90 degrees. 

Source Code 

<letrec interval 
<lamtda <m n> 

<if <<call <var GT> <var n> <var n>> 

<con <>> 

<call <var cons> 

<var m> 

<call <var interval> 

<call <var sun> 

<var m> <con 1» 

<var n>> >>>> 



<cail <var 


in terval> 


<con 


1> <con 


50>>> ! 






Results of interval 
Compiled) 

Enter Expression 


generation 


program 


(m = 1 , 


o 

LO 

II 


< 1/ 


2, 


3, 


4, 


5, 


6, 


7, 


8 / 


9, 


10, 


11/ 


12, 


13, 


14, 


15, 


16 


17, 


18, 


19, 


20, 


21, 


22, 


23, 


24 


25, 


26, 


27, 


28, 


29, 


30, 


31, 


3 2 


33, 


34, 


35, 


36, 


37, 


38, 


39, 


40 


41, 


42, 


43, 

50> 


44, 


45, 


46, 


47, 


48, 


49, 
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Evaluation Completed 

********************************************************** 





Statistics 


System time was 


266 milliseconds 


User time was 


1716 milliseconds 


| Module 

1 


Cells created | 
, 


| dcprim 


84 ] 


| cons 


963 | 


| readiden 


35 | 


| r eadint 


3 | 


| let rec 


6 1 


| GT 


51 1 


1 sum 


50 | 


Total cells 


1192 



Results of interval (interpreted) 

**************************** 4c* **************************** 





Statistics 


System time was 


616 milliseconds 


User time was 


19966 milliseconds 


1 Module 


Cells created | 


1 

| dcprim 


- | 

84 | 


| cons 


963 | 


I readiden 


35 | 


| readint 


3 1 


1 letrec 


6 1 


| GT 


51 ] 



1 1 5 



1 sum 



50 



Total cells 1192 



Profile for interval function m, 
Berkeley Pascal PXP — Version 2 
Wed Dec 12 12:48 1984 testll.p 
Profiled Thu Dec 13 13:54 1984 

line Count 

1 1 



33 


51 


36 


1136 


63 


5487 


84 


1 1793 


94 


6357 


122 


963 


158 


50 


330 


51 


340 


51 


539 


761 


547 


5437 


599 


454 


643 


153 


663 


51 


702 


63 


704 


88 


714 


25 


770 


3 


827 


151 


835 


189 


843 


35 


867 


63 


879 


51 



n 1-50 

.12 (5/11/83) 



f unc 

printval 

cellcount 

nullp 

first 

rest 

cons 

sum 

GTp 

GT 

atomp 

nullp 

assoc 

pair lis 

printval 

readval 

nonblank 

r eadlist 

readint 

digit 

letter 

readident 

readval 

evcon 
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880 

881 

882 

884 

947 

1012 

1041 

1093 

1198 

1239 

1261 



606 


evlis 


202 


apply 


1 


letrec 


761 


eval 


1 


letrec 


51 


evcon 


606 


evlis 


151 


a pplyprim 


202 


apply 


28 


dcprim 


1 


r eadfname 



\ 
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R es tri ctio n 

Purpose 

Restriction takes a finite function, T, (table of attri- 
bute value pairs) , and returns a finite function exactly 
like T except that one of the pairs has been removed. If 
the pair to be deleted is not a member of the finite func- 
tion then T is returned (this is tolerant evaluation) . 

Practical A pp lication Restriction could be used to delete 
records from a database. 

Source Code 

<letrec member 
<lambda <x L> 

<if <<call <var null> <var L>> 

<con false> 

<if <<call <var egual> 

<var x> 

<call <var first> <var L>>> 

<con true> 

<call <var member> 

<var x> 

<call <var rest> <var L»>>»>> 

<letrec firstlist 
<lambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <var cons> 

<call <var first> 

<call <var first> <var L>>> 

<call <var firstlist> 

<call <var rest> <var L>>>>>>> 

<letrec isfinfunc 
<lambda <T> 

<if <<call <var null> <var T>> 
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<con true> 

<if <<call <var egual> 

<call <var len> 

<call <var first> <var T>>> 



<con 2>> 



<if «call <var egual> 

<call <var taember> 

<call <var first> 

<call <var firstlist> 
<var T>>> 

<call <var rest> 

<call <var firstlist> 
< var T»>> 

<con true>> 

<con false> 

<call <var isfinfunc> 

<call <var rest> 



<var T»>» 

<con false>>>>>> 

<let <<repr> <<lambda <T> 

<if «call <vai egual> 

<call <var first> <var T>> 
<con finset>> 

<call <vat rest> <var T>> 

<con nofinfnc>»>> 

<letrec restric 
<lambda <T k> 

<if <<call <var egual> 

<call <var isfinfunc> <var T>> 

<con true>> 

<if <<call <var null> <var T>> 

<con <>> 

<if «call <var egual> 

<var k> 

<call <var first> 
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<call <var first> 
<var T»>> 



<call <var rest> <var T» 

<call <var cons> 

<call <var first> <var T>> 

<call <var restric> 

<call <var rest> <var T>> 
<var k>>> 

<con Tnotf func»>>>>» 

<call <var restric> 

<call <var repr> <finset <3 4> <6 5> <8 9>> > 

<con 3> >»»>>! 



Results of restriction function (Compiled) 
Enter Expression 
<< 6, 5> 

, < 8, 9> 

> 



Evaluation Completed 



*********************** *************************** ******** 

Statistics 



Systea time was 
User time was 


216 

1966 


| Module 


Cells crea 


| 




1 




I dcpr im 


84 


| cons 


837 


1 r eadiden 


220 


| readint 


8 


| letrec 


24 


| eval 


1 


| equal 


12 


1 null 


29 
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| len 3 | 



Total cells 


1218 


Results of 


restriction (interpreted) 


Enter Expression 




VO 

V 

V 


5> 




% 

CO 

V 


9 > 




> 






Evaluation 


Completed 




*** * ** ****** * *****************4*********************** ** * 






Statistics 


System time 


was 


516 milliseconds 


User time was 


17966 milliseconds 


| Module 
1 


Cells 


created | 


1 

| dcpr im 




1 

84 | 


Icons 




837 | 


| readiden 




220 1 


| readint 




8 1 


| letrec 




24 | 


| eval 




1 | 


| equal 




12 | 


I null 




29 | 


| len 




3 1 



Total cells 1218 



Profile for restriction program 

Berkeley Pascal PXP — Version 2.12 (5/11/83) 

Wed Dec 12 12:48 1984 testll.p 



12 1 



Profiled Thu Dec 13 14:50 1984 



Line 


C ount 


1 


1 


33 


7 


36 


1162 


62 


12 


63 


4184 


84 


8859 


94 


4699 


122 


837 


273 


12 


291 


12 


539 


44 1 


547 


4184 


564 


29 


576 


9 


587 


3 


599 


228 


643 


69 


663 


7 


702 


387 


704 


546 


714 


159 


770 


8 


827 


1011 


835 


1239 


843 


220 


879 


4 1 


880 


325 


881 


145 


882 


4 


834 


441 


947 


4 


1012 


41 



f unc 

prin tvdl 

cellcount 

equal 

nullp 

first 

rest 

cons 

equalp 

equal 

atomp 

nullp 

null 

lenp 

len 

assoc 

pairlis 

printval 

r eadval 

nonblank 

readlist 

readint 

digit 

letter 

readident 

evcon 

evlis 

apply 

letr ec 

e val 

letr ec 

evcon 



122 



1041 


325 


evlis 


1093 


115 


applyprira 


1198 


145 


apply 


1239 


28 


dcprim 


1261 


1 


r eadf name 
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Ve ct or prod uct Functi cr 



Purpo se 

Vec torprod uct returns the pairwise products of two lists 
of numbers. 

Practic al Appl i ca tion 

This function could be used to calculate the state tax 
owed by military employees, since different states have 
different rates of taxation. Cne vector would be the list 
of salaries and the other the rates of taxation. 

Source Code 

Cletrec map 
<lambda <f> 

<lambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<call <var cons> 

<call <var f> <call <var firstXvar L»> 
Ccall <cail <var map> <var f>> 

<call <var rest> <var L>»»>» 

<letrec prodlist 
<lambda <L> 

<if «call <var null> <var L>> 

<con 1> 

<call <var prod> 

<call <var sub> <var L> <con 1>> 

<call <var prodlist> 

<call <var rest> <var !>>>>>>> 

<letrec pairlist 
<lam bda <L M> 

<if <<call <var equal> 

<call <var len> <var L>> 

Ccall Cvar len> Cvar M>>> 

<if CCcall Cvar null> Cvar L>> 
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<if <<call <var null> <var M» 

<con <>> 

<con <>>>> 

<call <var cons) 

<call <var cons) 

<call <var first> <vac L» 

<call <var cons) 

<call <var first> <var M>> 
<c on <>> >> 

<call <var pairlist> 

<call <var rest> <var L>> 

<call <var rest) <var M»>>» 

<con errorpl> >» 

<call 

<call <var map> <var prodlist» 

<call <var pairlist> 

<list <con 5> <con 8> <con 4> <con 9» 

<list <ccn 2> <con 20> <con 7> <con 3>>»>>>! 

Results of vectorprcd function (Compiled) 

Enter Expression 

< 10, 160, 28, 2 7> 

Evaluation Completed 

*********************** ****** *************************** 

Statistics 

System time was 216 milliseconds 

User time was 1583 milliseconds 



jModule Cells created 



Idcprim 84 

Icons 720 

Ireadiden 150 

Ireadint 10 
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| letrec 




18 | 


| len 




10 | 


| equal 




5 1 


J null 




23 | 


| eval 




5 1 


| prod 




8 1 


Total ceils 


1033 


Results of 


vector product function (Interpreted) 


Enter Expression 




< 10, 


160, 


28, 2 7> 


Evaluation 


Completed 




*************** ******** **** **************************** ** * 






Statistics 


System time was 


483 milliseconds 


User time 


was 


15066 milliseconds 


1 Module 

i 


Cells 


created j 

—r 1 


1 

| dcpr im 




| 

84 | 


| cons 




720 | 


| readiden 




150 ] 


| readint 




10 1 


I letrec 




18 | 


| eval 




5 1 


| len 




10 1 


| equal 




5 | 


| nu il 




23 | 


| pr od 




8 1 


Total ceils 


1033 
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Profile for vectorprcduct function 



Berkeley Pascal 


PXP — Version 2. 


12 (5/11/83) 


Wed Dec 12 12:48 


1984 test 1 1 . p 




Profiled Thu Dec 


13 15:09 1984 




line 


Count 




1 


1 


f unc 


33 


5 


printval 


36 


977 


cellcount 


62 


5 


equal 


63 


3579 


nullp 


84 


7535 


first 


94 


4038 


rest 


122 


720 


cons 


208 


8 


prod 


258 


8 


sub 


273 


5 


equalp 


291 


5 


equal 


539 


395 


a tomp 


547 


3579 


nullp 


564 


23 


null 


576 


30 


lenp 


587 


10 


len 


599 


202 


assoc 


643 


59 


pairlis 


663 


5 


printval 


702 


272 


readval 


704 


384 


non blank 


714 


112 


readlist 


770 


10 


r eadint 


827 


659 


digit 


835 


819 


letter 


843 


150 


readident 
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867 


272 


readval 


879 


28 


e vcon 


880 


310 


evlis 


881 


129 


apply 


882 


3 


letr ec 


884 


395 


eva 1 


947 


3 


letrec 


1012 


28 


evcon 


1041 


310 


evlis 


1093 


102 


applyprim 


1199 


129 


apply 


1239 


28 


dcprim 


1261 


1 


r eadf name 



128 



F ilt er Func tion 
Purp o se 

Filter allows the user to extract information from a 
list based on a Boolean condition. In the example given, 
all numbers greater than 2000 are extracted from the list. 

Practical A ppl ication 

Filter is another function that could be useful when 
dealing with databases. Users of relational database 
systems use filtering every time they write a guery. 
Imagine that the elements of the example are salaries. The 
guery demonstrated is to find all salaries greater than 
2000 . 

Source Co de 
<letrec fil 

Clambda Cbool arg> 

f 

<lambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

<if <<call <var bcol> 

<call <var sub> <var L> 

<con 1» 

<var arg>> 

<call <var ccns> 

<call <var sub> <var L> <con 1» 
<call <call <var fil> 

<var bool> 

<var arg>> 

<call <var rest> <var L>»> 
<call <call <var fil> 

<var bool> 

<var arg>> 

<call <var rest> <var L>>>»>>» 

<call 
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Ccall <var fil> <var GE> <ccn 2000>> 

<list <con 1000> <ccn 12000> <con 2005> <con 3400> 

<con 3305> <con 134> <con 2001> <con 3500> 

<con 22 09> <ccn 1999>»>! 

Results of filter function (Interpreted) 

Enter Expression 

< 12000, 2005, 3400, 3305, 2001, 3500, 2209> 

Evaluation Completed 

************************************************** ******** 

Statistics 

System time was 416 milliseconds 

User time was 9083 milliseconds 



| Module 
1 




Cells created 


1 

| 




1 

1 dcpr im 




84 


1 

1 




Icons 




562 


1 




| r eadiden 




79 


1 




| readint 




13 


1 




| letrec 




6 


1 




| eval 




11 


1 




| null 




1 1 


1 




1 GS 




10 


1 




Total cells 


776 






Result of 


filter 


function (Compiled) 


Enter Expression 








< 12000, 


2005, 


3400, 330 


C 

- r 


2001, 



Evaluation Completed 

********************************************************** 
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Systen time was 
User time was 



Statistics 

216 milliseconds 

816 milliseconds 



| Module 

I 

| dcprim 
j cons 
| readiden 
| readint 
| letrec 
| eval 
| null 
1 GE 



Total cells 



Cells created 



84 

562 

79 

13 

6 

11 

11 

10 



776 



Profile for the 


filtering 


function 


Berkeley Pascal 


PXP -- Version 2.12 (5/11/83) 


Wed Dec 12 12:48 


1 9 84 test 1 1 . p 


Profiled Thu Dec 


13 13:40 


1934 


Line 


Count 




1 


1 


f unc 


33 


8 


printval 


36 


720 


cellcount 


63 


1838 


nullp 


84 


4010 


first 


94 


2185 


rest 


122 


562 


cons 


258 


17 


sub 


357 


10 


GEp 


367 


10 


GE 


539 


275 


atomp 



13 1 



547 


1838 


nullp 


564 


1 1 


null 


599 


135 


assoc 


643 


55 


pairlis 


663 


9 


printval 


702 


151 


r eadval 


704 


210 


nonfclank 


714 


59 


r eadlist 


770 


13 


readint 


827 


33 2 


digit 


835 


424 


letter 


843 


79 


readident 


867 


151 


readval 


879 


21 


evcon 


880 


210 


e vlis 


881 


77 


apply 


882 


1 


letrec 


884 


275 


eval 


947 


1 


letrec 


1012 


21 


evcon 


1041 


210 


e vlis 


1093 


55 


applyprim 


1198 


77 


apply 


1239 


28 


dcpr im 


1261 


1 


readf name 
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Periodic Sequence Gene rator 
Purpo se 

This program simply illustrates the interpreter’s 
ability to generate a recursive sequence. 



So ur ce C od e 
<letrec reverse 
Clambda <L> 

<if <<call <var null> <var L>> 

<con <>> 

Ccall <var conr> 

<call <var reverse> 

<call <var rest> <var L>>> 

<call <var sub> <var L> <con 1>>>>>> 

<letrec fibo 
Clambda <n> 

<if <<call <var egual> <var n> <con 1>> 

<con <2>> 

<if<<call <var egual> <var n> <con 2>> 

<ccn <9 2» 

<let <<f> <<call <var fibo> 

<call <var subt> 

<var n> 

<con 1>>» 

<call <var cons> 

<call <var subt> 

Ccall Cvar first> 
Cvar f>> 

Ccall Cvar first> 
Ccall Cvar rest> 
Cvar f>»> 

Cvar f>>>>>>>>> 

Ccall Cvar reverse) 

Ccall Cvar fibo> Ccon 24>»»! 
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Results of generating the first 24 elements of a periodic 
sequence, where xl = 2, x2 = 9, and xk = (xk- 1 ) - (xk-2) 
for k =3, 4, 5, ... 

Enter Expression 
< 2, 9, 

2, 9, 

2 / 9, 

2/ 9, 

Evaluation Completed 

************************************************** ******** 

Statistics 

Systen time was 283 milliseconds 

User time was 2916 milliseconds 




j Module 

l 


Cells created | 


1 — 

| dcpr im 


1 

84 | 


Icons 


1064 | 


J readiden 


87 | 


| readint 


8 1 


| letrec 


12 | 


| equal 


46 | 


| subt 


44 | 


| null 


25 | 


| conr 


23 | 


Total cells 


1393 



Profile of seq2 (periodic function) 

Berkeley Pascal PXP — Version 2.12 (5/11/83) 
Wed Dec 12 12 :48 1984 test 1 1 . p 
Profiled Thu Dec 13 10:10 1984 
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Line 

1 

33 

36 

62 

63 

84 

94 

122 

137 

183 

258 

273 

291 

539 

547 

564 

599 

643 

663 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 



Count 



1 


f unc 


21 


printval 


1 181 


cellcount 


38 


equal 


7652 


nullp 


16163 


first 


8626 


rest 


932 


cons 


20 


conr 


36 


subt 


20 


sub 


38 


equalp 


38 


equal 


881 


atomp 


7652 


nullp 


21 


null 


438 


assoc 


116 


pair lis 


21 


printval 


163 


r eadval 


231 


nonblank 


68 


r eadlist 


8 


readint 


379 


digit 


474 


letter 


87 


readident 


163 


read val 


59 


evcon 


738 


evlis 


267 


apply 


2 


letrec 


881 


eval 


2 


letrec 
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1C 


59 


evcon 


1C -r 1 


738 


e vlis 


1093 


227 


applyprim 


1198 


267 


apply 


1239 


28 


dcpr im 


1261 


1 


readf name 
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Over lay Functi on 



Purp o se 

Overlay takes a finite function, (table) , and returns an 
identical table with an additional pair added. 

Prac tical A ppl ication 

Overlay could be used as a way to update a database. 
Source Code 



<letrec firstlist 



<lambda <1> 



<if <<call <var null> <var L>> 

<con <» 

<call <var cons> 

<call <var first> 

<call <var first> <var L>>> 
<call <var firstlist> 

<call <var rest> 



<var L>»»» 

<letrec isfinfunc 
<lamtda <T> 

<if <<call <var null> <var T>> 

<con true> 

<if <<call <var ecjual> 

<call <var len> 

<call <var first> <var T»> 
<con 2» 

<if «call <var memb> 

<call <var first> 

<call <var firstlist> 
<var T>>> 

<call <var rest> 

<call <var firstlist> 
<var T»>> 

<con false> 
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<call <var isfinfunc> 
<call <var rest> 
<var T»>>> 



»»> 



<con false> 



<letrec overlay 
<lambda <T pr> 

<if <<call <var equal> 

<call <var isfinfunc> <var T>> 

<con true>> 

<if <<call <var null> <var T>> 

<call <var cons) <var pr> <con <>>> 

<if «call <var equal> 

<call <var first> <var pr>> 
<call <var first> 

<call <var first> 

<var T>>>> 

<call <var overlay> 

<call <var rest> <var T>> 

<var pr>> 

<call <var cons) 

<call <var first> <var T>> 

<call <var overlay> 

<call <var rest> <var T>> 
<var pr>>> 

»>> 



<con Tnotffunc> 



>>> 



<call <var overlay> 

<call <var repr) <finset <3 4> <6 5> <8 9>>> 
<list 7 2 > >»>! 

Results of overlay function adding the value <3 4> 
to the table. (Compiled) 



Enter Expression 
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« 

, < 
, < 
, < 

> 



3, 

6 , 

8 / 

7, 



4 > 

5> 

9> 

2 > 



Evaluation Completed 

******************************* 

Statist 

System time was 183 mil 

User time was 2333 mil 



| Module 

i 


Cells created 




1 

| dcprim 


84 




| cons 


907 




| readiden 


170 




i readint 


9 




| let rec 


18 




1 null 


46 




| len 


6 




| equal 


13 




| memb 


6 




Total cells 


1259 





Results of 


overlay (Interpreted) 


Enter Expression 


« 3, 


4> 


, < 6, 


5> 


, < 8 , 


9> 


. < 7, 


2> 



> 



************************ ** * 
ics 

liseconds 

liseconds 
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Evaluation Completed 



*********** *** ************* ************** ** *************** 

Statistics 

System time was 633 milliseconds 

User time was 24433 milliseconds 



| Module 
| 


Cells crea 


1 

1 dcpr im 


84 


1 cons 


907 


1 readiden 


170 


1 r eadint 


9 


1 letrec 


18 


| null 


46 


| len 


6 


| equal 


13 


1 memb 


6 



Total cells 1259 



Profile for overlay program 



Berkeley Pascal 


PXP — Version 2. 


12 (5/11/83) 


Wed Dec 12 12:48 


1 984 test 1 1 . p 




Profiled Thu Dec 


13 14:05 1984 




line 


Count 




1 


1 


f unc 


33 


13 


printval 


36 


1203 


cellcount 


62 


13 


equal 


63 


6758 


nullp 


84 


1 4295 


first 


94 


7556 


rest 
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122 

273 

291 

539 

547 

564 

576 

587 

599 

643 

663 

702 

704 

714 

770 

827 

835 

843 

867 

879 

880 

881 

882 

884 

947 

1012 

1041 

1061 

1071 

1083 

1093 

1198 

1239 

1261 



907 


cons 


17 


equalp 


13 


equal 


711 


atomp 


6758 


nullp 


46 


null 


18 


lenp 


6 


len 


371 


assoc 


96 


pairlis 


13 


printval 


30 1 


r eadval 


423 


nonblank 


122 


readlist 


9 


readint 


794 


digit 


973 


letter 


170 


readident 


301 


read val 


65 


evcon 


532 


evlis 


241 


apply 


3 


letrec 


71 1 


eval 


3 


letrec 


65 


evcon 


532 


evlis 


10 


membp 


6 


memb 


1 


isf inset 


195 


applyprim 


241 


apply 


28 


dcprim 


1 


r eadf name 
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Split Pu re t ion 
Purp ose 

Split takes a list and divides it into two equal size 
lists . 

Pract ical Application 

The split function illustrates how functional languages 
lend themselves to parallel computer operations. If quick- 
sort was implemented using split then once the list was 
initially separated into two lists, two processors could 
work cn those two lists, etc.. 

Source C od e 
<letrec splitaux 
<lamlda <k L> 

<if <<call <var equal> <var k> <con 0>> 

<call <var cons> 

<con <» 

<call <var cons> 

<var L> 

<con <>>» 

<let <<r> «call <va r splitaux> 

<call <var subt> <var k> <con 1>> 
<call <var rest> <var L>>>> 

<call <var cons> 

<call <var cons> 

<cail <var first> <var I>> 

<call <var first> <var r>>> 
<call <var rest> <var r>>>>>>>> 

<let <<split> 

<<lambda <L> 

<call <var splitaux> 

<call <var divi> 

<call <var len> <var L>> 

<con 2>> 
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<var L»» 



<call <var split> <list abcdefioe t>>>>>! 

Results of using the split function to divide a 10 element 
list 

Enter Expression 
<<a, b, c t d, e> 

, <f, i, o, e, t> 

> 

Evaluation Completed 

********************************************************** 



Statistics 



Systeir time was 
User time was 



166 milliseconds 
833 milliseconds 



| Module 



Cells created 



| dcprim 
| cons 
| readiden 
| readint 
| letrec 



472 

91 



84 



3 



6 



| eval 
j len 
| divi 
| equal 
| subt 



6 

5 



1 



1 



1 



Total cells 



670 



Profile of split (ten element list) 

Berkeley Pascal PXP -- Version 2.12 (5/11/83) 
Wed Dec 12 12:48 1984 testll.p 



143 



iled Thu Dec 


13 15: 


Line 


C ount 


1 


1 


33 


13 


36 


614 


62 


6 


63 


1656 


84 


3439 


94 


1861 


122 


472 


183 


5 


233 


1 


273 


6 


291 


6 


539 


183 


547 


1656 


576 


1 1 


587 


1 


599 


86 


643 


32 


663 


13 


702 


156 


704 


218 


714 


62 


770 


3 


827 


37 5 


835 


469 


843 


91 


867 


156 


879 


6 


880 


169 


881 


52 


882 


1 


884 


183 



1984 

f unc 

prin t val 

cellcount 

equal 

nullp 

first 

rest 

cons 

subt 

di vi 

equalp 

equal 

atomp 

nullp 

lenp 

len 

assoc 

pairlis 

printval 

read val 

nonblank 

readlist 

readint 

digit 

letter 

readident 

readval 

evcon 

evlis 

apply 

letrec 

e val 
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947 


1 


letrec 


1012 


6 


evcon 


1041 


169 


evlis 


1093 


45 


applyprim 


1198 


52 


apply 


1239 


28 


dcprim 


1261 


1 


r eadf name 
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Trig Table Ge ne ratin g Progr am 



Pu rp ose 

Generates a table of trigonometric values for all angles 
in the interval 0 to 90 degrees. 



Disc ussion 

This program demonstrates the value of the interval 
function combined with the map functional. The reverse of 
the map functional, (pam) , is also used. Map takes one 
function and applies it to all the elements of a list, where 
pam takes a list of functions and applies each one to the 
same argument. It is clear that mapping the pam function 
across the interval 0 to 90 produces the desired results. 
This program also illustrates the value of the ’id' primi- 
tive which allows the first eleaent of each of the sublists 
in the result to be the angle. 



Source Code 



<letrec map 
< lambda <f> 

<iambda <L> 

<if <<call <var null> <var L>> 

<con <» 

<call <var cons) 

<call <var f> <call <var firstXvar L»> 
<call <cail <var map> <var f>> 

<call <var rest) <var L>>>>>>>> 

<letrec pam 
< lambda <F> 

<lambda <x> 

<if <<call <var null> <var F>> 

<con <» 

<call <var cons) 

<call 

<call <var first> <var F>> 
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<var x>> 

<call 

<call <var pam> 

<call <var restXvar F>>> 

<var x»»>>> 

<letrec interval 
<lambda <m n> 

<if <<call <var GT> <var m> <var n>> 

<con <>> 

<call <var cons> 

<var m> 

<call <var interval> 

<call <var sum> 

<var m> 

<con 1» 

< var n>> »» 

<call 

<call <var map> 

<call <var pam> <list <var id> <var sin> 

<var cos> <var tan»» 

<call <var interval> <con 0> <con 90>>>>>>! 

Results of mapping the pam function across a list to 
generate the table of trigonometric values for angles 0-90 
degrees. 



Enter Expression 



« 


o. 


0 . 000000 , 


1 . 000000 , 


C. 000000> 


9 


< 




0. 017452, 


0. 999848, 


0.0 17455> 


9 


< 


2, 


0. 034899, 


0. 999391 , 


0 .03492 1> 


9 


< 


3, 


0. 052336, 


0.998630, 


0. 052408> 


9 


< 


4, 


0. 069756 , 


0.997564, 


0.069927> 


9 


< 


5, 


0. 087156, 


0.996195, 


0 . 087489> 


9 


< 


6, 


0. 104528, 


0.994522, 


0. 105104> 


9 


< 


7, 


0. 121869, 


0.992546, 


0. 122785> 


9 


< 


8, 


0. 139173 , 


0.990268, 


0. 1 4054 1> 
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< 


9 , 


0. 156434 


< 


10 , 


0 . 1736 48 


< 


11 , 


0 . 1 90809 


< 


12 , 


0 . 207912 


< 


13 , 


0. 224951 


< 


1 ^, 


0. 241922 


< 


15 , 


0.258819 


< 


16 , 


0 . 275637 


< 


17 , 


0.292372 


< 


18 , 


0.309017 


< 


19 , 


0.325568 


< 


20 , 


0.342020 


< 


21 , 


0 . 358368 


< 


22 , 


0 . 374607 


< 


23 , 


0.390731 


< 


24 , 


0.4 06737 


< 


25 , 


0.422618 


< 


26 , 


0 . 438371 


< 


27 , 


0 . 453990 


< 


28 , 


0 . 469472 


< 


29 , 


0 . 4848 10 


< 


30 , 


0.500000 


< 


31 , 


0.515038 


< 


32 , 


0 . 5299 19 


< 


33 , 


0.544639 


< 


34 , 


0. 559193 


< 


35 , 


0.573576 


< 


36 , 


0. 587785 


< 


37 , 


0.601815 


< 


38 , 


0. 615661 


< 


39 , 


0.629320 


< 


40 , 


0.642788 


< 


41 , 


0. 656059 


< 


42 , 


0.669131 


< 


43 , 


0 . 681998 



937688 , 


0 . 1 583 84 > 


984808 , 


0 . 1 7 6327 > 


981627 , 


0 . 194380 > 


978148 , 


0 . 2 1 2557 > 


974370 , 


0 . 23 086 8 > 


970296 , 


0 . 249328 > 


965926 , 


0 . 2 67949 > 


961262 , 


0 . 2 86745 > 


956305 , 


0 . 30573 1 > 


951057 , 


0 .324920 


945519 , 


0 . 344328 > 


9 39693 , 


0 . 363970 > 


933580 , 


0 . 383864 > 


927 184 , 


0.4 04026 > 


920505 , 


0 . 424475 > 


913545 , 


0 . 4 4522 9 > 


906308 , 


0 . 466308 > 


898794 , 


0 . 4 87733 > 


891007 , 


0 . 50 9525 > 


882948 , 


0.5317 09 > 


874620 , 


0 . 5543 09 > 


866025 , 


0 . 577350 > 


857167 , 


0 . 600861 > 


848048 , 


0 . 624869 > 


838671 , 


0.64 9408 > 


829038 , 


0 . 674509 > 


819152 , 


0 . 700208 > 


8090 17 , 


0 . 726543 > 


798636 , 


0 . 753554 > 


788011 , 


0 . 781286 > 


777146 , 


0 . 809784 > 


766044 , 


0 . 839100 > 


754710 , 


0 . 869287 > 


743 145 , 


0 . 900404 > 


731354 , 


0. 9325 15 > 
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0 

0 

0 

0 

0 , 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



, < 44 , 

, < 45 , 

, < 46 , 

, < 47 , 

, < 48 , 

, < 49 , 

, < 50 , 

, < 51 , 

, < 52 , 

, < 53 , 

, < 54 , 

, < 55 , 

, < 56 , 

, < 57 , 

, < 58 , 

, < 59 , 

, < 60 , 

, < 61 , 

, < 62 , 

f K 63 , 

, < 64 , 

, < 65 , 

, < 66 , 

, < 67 , 

, < 68 , 

, < 69 , 

, < 70 , 

, < 71 , 

, < 72 , 

, < 73 , 

, < 74 , 

, < 75 , 

, < 76 , 

, < 77 , 

, < 78 , 



0 . 694658 , 
0 . 707107 , 
0 . 719340 , 
0 . 731354 , 
0 . 743145 , 
0 . 754710 , 
0 . 766044 , 
0 . 777146 , 
0 . 78801 1 , 
0 . 798636 , 
0 . 809017 , 
0 . 819152 , 
0 . 829038 , 
0 . 838671 , 
0 . 848048 , 
0 . 857167 , 
0 . 866025 , 
0 . 874620 , 
0 . 882948 , 
0 . 891007 , 
0 . 898794 , 
0 . 906308 , 
0.913545 , 
0 . 920505 , 
0 . 927184 , 
0 . 933580 , 
0 . 939693 , 
0 . 94551 9 , 
0 . 951057 , 
0 . 956305 , 
0 . 961262 , 
0 . 965926 , 
0 . 970296 , 
0 . 974370 , 
0 . 978148 , 



0 . 719340 , 
0 . 707107 , 
0 . 694658 , 
0 . 681998 , 
0 . 669131 , 
0 . 656059 , 
0 . 642788 , 
0 . 629320 , 
0 . 615661 , 
0 . 601815 , 
0 . 587735 , 
0 . 573576 , 
0 . 559193 , 
0 . 544639 , 
0.5299 19 , 
0 . 515038 , 
0 . 500000 , 
0 . 4848 10 , 
0 . 469472 , 
0 . 453990 , 
0 . 438371 , 
0 . 422618 , 
0 . 406737 , 
0.390731 , 
0 . 374607 , 
0 . 358368 , 
0 . 342020 , 
0 . 325568 , 
0 . 309017 , 
0 . 292372 , 
0 . 275637 , 
0 . 258819 , 
0 . 241922 , 
0 . 224951 , 
0 . 207912 , 



0 . 965689 > 
1 . 000000 > 

1 . 0 35530 > 
1 . 072369 > 

1 . 1 1 06 1 3 > 
1 . 1 503 68 > 

1 . 1 9 1754 > 
1 . 234897 > 
1 . 279942 > 
1 . 327045 > 

1.3 76382 > 
1 . 428148 > 
1 . 48256 1 > 
1 . 53 9865 > 
1 . 60 0335 > 
1 . 664279 > 
1 . 73205 1 > 
1 . 804048 > 
1 . 8 80726 > 
1 . 96 26 1 1 > 
2 . 050304 > 

2 . 1 445 07 > 
2 . 246 037 > 

2 . 3 5 5852 > 
2 . 475087 > 
2 . 60508 9 > 
2 . 747477 > 
2 . 904211 > 
3 . 077684 > 

3 . 2 70853 > 
3 . 48741 4 > 
3 . 732051 > 

4.0 1078 1 > 

4 . 3 3 1 47 6 > 
4 . 704630 > 
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9 


< 


79, 


0. 981627, 


0.190809, 


5. 1 44554> 


9 


< 


% 

o 

00 


0. 984808 , 


0. 173648, 


5.67 1282> 


9 


< 


81, 


0. 987688 , 


0. 156434, 


6.3 13752> 


9 


< 


82, 


0. 990268, 


0. 139173, 


7.1 1 53 70> 


9 


< 


83, 


0. 9 92546 , 


0. 121869, 


3. 1 44346> 


9 


< 


Hi 

00 


0. 994522, 


0. 104523, 


9.514364> 


9 


< 


85, 


0. 996195, 


0.087156, 


1 1. 430052> 


9 


< 


* 

<Q 

00 


0. 997564, 


0.069756, 


14. 300666> 


9 


< 


87, 


0. 998630, 


0.052336, 


19. 081137> 


9 


< 


88, 


0. 999391 , 


0.034899, 


28.636253> 


9 


< 


89, 


0. 999848 , 


0.017452, 


57. 28996 2> 


9 


< 


90, 


1. 000000, 


' undef ' , 


’undef '> 



> 



Evaluation Completed 

******************** ******* **************************** ** * 

Statistics 

Systeir time was 4450 milliseconds 

User time was 292650 milliseconds 



Module 


Cells crea 


dcpr im 


84 


cons 


10305 


readiden 


121 


readint 


3 


letrec 


18 


eval 


457 
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Results of trig table generator (Compiled) 
Evaluation Completed 

Statis tics 



System time was 
User time was 




1216 milli 
24100 milli 
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Comparison of Progr ams R un W it h and witho ut the M em or v 
Manager (MM) 

General 

The column labeled "left" in the following table refers 
to the number of cells that were in the freelist after eval- 
uation of the program. This is caused by returning the 
cells that made the program list and is noteworthy because 
several programs could be loaded in the same file and evalu- 
ated without the danger of using all allocated memory. 
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(♦Extended Lambda Calculus Interpreter*) program func (input, output); 
type 

filename = packed array (. 1 .. 80 .) of char; 



APPENDIX C 
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(♦Data structure for tracking the number of cells created*) 
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printval (ls:list) ; forward; 



Purpose: Checks the free list to see if there are any cells available 
to be retrieved. 
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Called by: cons, sum, subt, prod, divi, equal, LT, GT, GE, LE, sinp 
cosp, tann, cot, sec, esc, atom, null, len, readrea, 
readint, readstrirg, readident, eval, letrec, memb 



function freecell: lis 
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Purpose: Decrements the reference counts of cells that have references* 
destroyed because of overwriting pointers or because they * 
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(************************************************************************* 

* Function initial * 



Purpose: Receives a list as an argument and returns all elememts of 
that list except the last element. 
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errormsg ( ' i nitial' , 2) ; 
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if empty tlien begin 
new { C, 1st) ; 
cellcount(1, 'cons 



C:= freecell; 
with C3 do begin 
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Called by: applyprim 



********** *** ****** *********** *********************** *** *****************J 

unction conr(H, T: list): list; 
var P,C: list; 
begin 

if H <> nil then 
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C := freecell; 
with Ca) do begin 



writeln('In conr 2d') 
tail:= nil; 
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Called by: applyprim 



unction sum(a,b: list): list; 
var R,I: list; 

1 begin 

if (aS.tag = int) and( bS.tag = int) then begin 
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empty then begin 
new (R, rea) ; 
cellcountCl, 'sum' 



R := freecell; 
with Ra) do legin 
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* Called by: applyprim * 

** *************** *************** ** ********** ************************** ***^ 
unction subt (a, b: list) : list; 
var S:list; 
begin 



if (a3.tag = int) and (bS.tag = int) then begin 
if empty then begin 
new (S, int) ; 
cellcount(1, 'subt') 
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S := freecell; 
with S3 do begin 



aS.rval - ba).rval; 



03 

> 

G 



nG 

G 

<D 



CO 



P 

XI 

G 

co 



nG 

g 

Q) 







* 


■*• *■ 


* 


* * 


* * 


* 


# 








* 












* 








* 












* 








* 




>1 








* 








■* 




X 








* 








■* 




CO 








* 








* 




G 








* 








■* 




o 








* 








# 




X 








# 








* 




> 








# 








# 




CD 








■* 








•* 




U 








* 








# 




04 








* 








* 












*■ 








* 




<D 








* 








* 












* 








* 




Di 








* 








* 




X 








#■ 








# 




X 








■* 








* 




X 








* 








* 




u 








#■ 








* 




0) 








* 








* 




p 








•* 








* 












* 








# 




CD 








* 








* 




a 








* 








* 




03 








* 








* 




CO 








* 








* 












* 




* 




* 




0) 




CO 




#• 




x 




■* 




X 




a 

u 




* 




U 




* 




p 






* 




P 




■* 








o 




* 




03 




* 




zn 




u 




* 




a 




# 




G 




u 




#■ 




to 




* 




•H 




0) 




* 




*r| 




* 




CO 








# 




a 




* 




G 




% 




* 








■* 








H 




* 




< D 




* 




% 




X 




* 




X 




■* 




CO 




0) 




* 




>i 




* 




L4 




u 




# 




H 




* 




<D 




CD 




#■ 




* 




* 




X 




CD 




* 








* 




a 


• 


M 




■fr 








* 




G 


a 


P 




■fr 


• •» 


<— <• 




■* 




G 


g 






* 


P 


rn 




* 






CO 


% 




#• 


CO 






■* 




O 




P 




* 


•H 




_ _ _ 


* 






u 


G 




* 


X 


w 


■* 


* 




P 


o 


G 




* 


• • 


p 


P 


■* 






p 


O 


a 


* 




X 


X 


* 




CO 




U 


•H 


* 


P 




3 


* 




0) 


oG 


X 


U 


* 


CO 


co 


CO 


■fr 




X 


<D 


X 


X 


* 


•H 






* 




H 


X 


CD 


>1 


* 


r- 1 




G 


* 




X 


X 


u 


X 




« • 


cn 


o 


* 




X 


M 




X 


* 


X 


to 


•H 


* 


rtf 


P 


O 


* 


X 


* 




a 


P 


# 


o 


X 


CO 


>-» 


03 


# 


03 


M 


u 


* 


u 


G 


CD 


p 




* 




O 


g 


* 


X 


ss 


X 


04 


• # 


* 





U 

Lt 



3 

Cm 



* 

* 



a 

<d 



CD 


CD * 


■* 


O 


CD 




CO 


' 


* 


•H 


CO 


• • 


X 




* 


P 


O 


CO 


CD 


• «k 


# 


O 


X 


X 




oG 


# 


G 


M 


X 




G 


* 


G 


G 


03 




CD 


* 


P 


X 


u 






* 












* 


* * 


* * 


* -K- 



>i 

x 

T3 

0) 



n3 

V 



o 

u 

X 

a 

o 

•H 

P 

U 



(0 



X 



M 

03 

> 



a 

•H 

<D 



176 



if (aS.tag =int) and (t2.tag = int) then begin 
if empty then begin 
new(P, int) ; 
cellcountCI, 'prod'); 



P : = freecell; 
with Pa) do begin 
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acD.rval * be), rval 



prod*, 3) (*Type clash*) 
prod*) 
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D := freecell; 
with Da) do begin 
ref ;= 0; 



ival div ba.ival; 
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while count <> 1 do tegin 
L : = rest (L) ; 
count := count - 1; 






* * 



* 

# 

# 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



P 

O 

* 4-1 

CO 

P 

to 

0) 

p 

cm 

H 

d 

3 

cn 

w 



<D 

x 

EH 



a, 

H 

d 

cn 

a) 

>i 

X 



to 

p 

to 

•H 



* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

# 









* 




• 


P 


o 






* 










d 




d 




d 








* 




d 


•H 








* 










CD 




CD 




<D 








* 




O 




% 






* 










X 




X 




X 








* 




•H 


O 


to 






* 










p 




p 




P 








* 




P 


P 


p 






# 


























* 




U 




CD 






* 


















. — . 








* 




d 


P 


X 






# 










p 




p 




d 








* 




d 


d 


a 
















rH 




d 




CD 








* 




P 


<1) 


d 






* 










d 




•H 




P 




• « 




* 






CO 


d 






* 






















, , 




* 




H 










* 










ll 




II 




II 




*• 




* 




d 


CO 


s 






* 






















X 




* 




d 


p 


CO 






* 










cn 




cn 




cn 




a 




* 




ji 


d 


p 












d 




d 




d 




d 




CO 




# 




0) 


0) 


0) 






* 






CD 




p 




p 




P 








* 






a 


•H 
















• 




• 




• 




cn 




*«■ 




CD 


d 


P 






■ft 






P 






H 


(B 


H 


re 




d 




* 




X! 


Cn 


•H 






■ft 










>i 


d 




d 






•H 




* 




P 


P 


P 






* 


• * 




N 




N — ' 


> 




> 






> 




* 






d 


d 






■ft 


d 










d 




•H 






d 




* 




X! 




CD 






ft 


d 








nd 


• 


nd 


• 


nd 




CD 




* 




P 


CD 


nd 






ft 


CD 




* 




d 


(B 


d 


(B 


d 




h 




•* 




•H 


X 


•ri 






ft 


H 




i-H 




03 


p^i 


d 


j>i 


d 




CO 




# 




:* 


-P 








ft 


o 




H 
















cO 




* 








CD 


a. 




ft 


o 




H 






II 





II 







cO 




* 




a 


P 


X 


H 




ft 


X 




d 




P 




P 




d 




to 




* 




<D 


O 




H 


a, 


* 


• • 




d 




H 


H 


d 


H 


0) 




CO 




* 




nd 




d 


d 


X 


ft 






■ * 




d 


d 


•H 


d 


p 




cO 




# 




d 


>i 


d 


d 


a 


ft 


p 










> 




> 






cO 


* 


* 




d 


P 


u 




CD 


ft 


CO 




nd 


<D 


n 


d 


II 


•H 


ll 


• m 


tO 


XI 


* 




p 


•H 




% 


a 


ft 


•H 




d 


d 




• 




• 




<— N 


cO 


d 


* 






H 


to 


p 




ft 


H 




d 


P 


cn 


(B 


cn 


(B 


cn 


H 


CO 


CO 


* 




d 


d 


p 


CO 


% 


ft 


• • 






P 


d 


X 


d 


X 


d 


w* 


CO 




* 




•H 


d 


d 


p 


i — i 


ft 


>i 








p 




P 




p 


P 


CO 


d 


# 


rH 




cn 


CD 


•H 


d 


ft 


* 






II 


• 


II 


t 


II 


• 


CO 


cO 


O 


* 


d 


(0 


0) 


a 


P 


d 


ft 


X 




X 


• • 


(S 


• • 


re 


• • 


re 


P 


CO 


•H 


* 


d 


X 




d 




cn 


* 






*— * 




X 




X 




X 


*H 


- 


P 


* 


D1 


P 


0) 


o> 


* 


CD 


ft 


Pm 




a, 


a. 




a. 


'•— * 


P 




P 


» 


O 


* 


0) 


O 


x 


p 


P 




ft 


H 




H 


H 




H 




H 






d 


d 


* 




5c 


p 


d 


CO 


• i 


ft 


d 




H 


d 


p 


d 


p 


d 


p 


II 


H 


d 


tt 










CD 


>i 


ft 


d 




d 


d 


•H 


d 


•H 


d 


•H 


• • 


0) 


Pu, 


* 


d 


• • 






P 


X 


* 


cn 




d 


cn 




cn 




cn 






p 


# 


* 


o 


Q) 










ft 


CD 




'•— * 


CD 


CD 


CD 


CD 


(D 


CD 


X 


•H 


* 


* 


•H 


CO 






• # 


nd 


ft 










CO 




CO 




CO 


d 


P 




* 


P 


O 






CO 


CD 


* 


d 


d 


p 




H 




H 




H 


co 


> 


• ffc 


* 


U 


P 






H 


H 


«»* 


o 


•H 


H 




CD 




CD 




CD 






nd 


* 


d 


P 






H 


H 


* 


•H 


Cn 




















d 


# 


d 


d 






d 


d 


* 


P 


CD 




















cd 


# 


Pm 


CM 






o 


U 


* 


U 


X 






















# 














«»► 


d 
























* 


* * 


* 


* 


* * 


* * 


# 


* 


d 



















d 

> 

p 

§ 

(B 

P^t 



d 

> 

P 



181 



egualp := xa). 



else if (x3>. tag = 1st) and (ya).tag = 1st) then begin 
if equa lp (first ( x) , f irst (y) ) then 

equalp := equalp (rest (x) , rest (y) ) 
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if empty then begin 
new ( E, boo) ; 



E := freecell; 
with Ea) do begin 
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LTp (x, y ; list) :boolean; 



if (xa).tag = int) and (ya).tag = int) then 
LTp ;= xS.ival < ya). ival 
else if (xal.tag = rea) and (yS.tag = rea) then 
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if ( (xa). tag = int) and (yS.tag = int)) | 

((xa).tag = rea) and (ya). tag = rea)) then begin 
if empty then begin 
new { A , boo) ; 
cellcount(1, ' LT ' ) ; 



A := freecell; 
with A3) do begin 



* * * 
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* Called by: * 



function GTp (x, y : list) : boolean; 
begin 

if (xS.tag = int) and (ya).tag = int) then 
GTp ;= xc&.ival > yS-ival 
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if ((xS.tag = int) and (ya). tag = int)) | 

((xS.tag = rea) and (yS.tag = rea) ) then begin 
if empty then begin 
new ( A , boo) ; 



A := freecell; 
with Aa) do begin 
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* Called by: * 

************************************************************************ *^ 



function GEp (x , y : list ) : boolean; 
begin 

if (xS.tag = int) and (yS.tag = int) then 
GEp := xS.ival >= yS.ival 
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if ((xS.tag = int) and (y3. tag = int) ) j 

((xS.tag = rea) and (y3. tag = rea)) then begin 
if empty then begin 
new (A, boo) ; 



A := freecell; 
with A3) do begin 
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* Called by: * 

***************************************************************♦*********) 



function LEp (x , y : list) : boolean; 
begin 

if (xa> . tag = int) and (yS.tag = int) then 
LEp := xd.ival <= yS.ival 
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if ((xS.tag = int) and (yc). tag = int)) | 

{(xa>.tag = rea) and (yS.tag = rea) ) then begin 
if empty then begin 
new (A, too) ; 



A := freecell; 
with AS do begin 
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Called by: applyprim 
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if empty then begin 
new (A, rea) ; 
cellcount{1, ’cosp’); 



A := freecell; 
with A a) do begin 
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Purpose: Determines the cotangent of an angle given in degrees. 
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A := freecell; 
with A 5) do begin 
ref := 0; 
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(xS.ival * 3. 141592654) 7180. 



rea: rad := (xal.rval * 3- 141592654) /1 80. 
end; (*case xa). tag*) 
if empty then begin 
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Called by: applyprim 
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null (L: list) : list; 
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* Called by: len * 

************ ******************************************************** *****) 



function lenp (L: list) : integer ; 
var length: integer; 
begin 

length := 0; 



* * 



■* * 



* 

■* 

# 

# 

* 

■* 

■* 

* 

# 

* 

* 

# 

* 

* 

# 

# 

* 

# 

* 

# 

* 

* 

* 

* 

# 

■* 

■* 

* 

* 

* 



£ 

0 



o 

•P 



£ 

o 

mh 

o 



3 

co 

0 ) 

H 

0 

-C 



* 

* 

* 

* 

* 

* 

* 

* 

■* 

* 

# 

* 

* 

■* 

* 

* 

* 

* 

* 

# 

* 

■* 

* 

* 

* 

* 

* 

* 

* 

# 

* 















■* 




P 


a, 




# 
























* 






£ 




























■fr 




T3 


0 




* 


















• * 






# 




rH 


rH 




* 
























* 




O 






* 
























* 




j£ 


* 




* 
























# 






<H 




* 
























■* 




O 


rH 




■* 


















• , — - 






■* 




«P 


0 




* 


















4-> 






* 






U 




* 


















CO 






* 




rH 


0 




* 


















0 






# 




rH 


0 




* 


















H 






■* 




0 


W 




■«■ 
























* 




O 


MH 






















a, 






* 










* 


















£ 






* 




«* 


% 




# 


















0 






* 




-P 


-P 




# 


• • 
















rH 






# 




£ 


£ 




* 


«P 






£ 














* 


■* 




•H 


£ 




* 


w 






•H 














CU 


* 






O 


a 


* 


•r| 






cn 




£ 






+ 




£ 


■* 






0 


*H 


* 


rH 






0 




0 










0 


* 




r0 


H 


H 


* 


• 1 








• * 


-£ 


O 




T— 




rH 


* 






rH 


PH 


■* 


, — s 










•P 








-p 




* 




(0 


0 


>i 


* 


-P 






£ 


*p 




II 




1) 


cn 


£ 


* 




0 


o 


rH 


* 


CO 






0 


£ 




• • 




• t 


£ 


O 


* 




*P 




Cl. 


* 


•H 






-£ 


•H 










0 


•H 


# 


£ 


<d 


* 


a, 


# 


rH 






-P 




' 


X 




r£ 


rH 


•P 


* 


0 


0 


>1 


<d 


* 


• » 








% 


a, 


4-> 




-P 




U 


■* 


H 


M 


•P 




* 




• «k 






< 


iH 


cn 




cn 


II 


£ 


* 




U 


a. 


• • 


* 


— ' 


*P 




*P 


— ' 


rH 


£ 




£ 


• • 


£ 


■* 






a 


>i 


# 


£ 


CO 




a 




£ 


0 




0 




CH 


* 


£ 


• • 


0 


.Q 


* 


0 


•r| 




a 


0 


£ 


rH 


0 


rH 


a. 


* 


# 


O 


0 






* 


rH 


rH 




0 


£ 






co 




£ 




* 


•«H 


CO 


« • 


*0 






• • 








MH 




rH 




0 




# 


~P 


o 


co 


0 


* 


£ 


*3 


£ 


MH 




•H 




0 




rH 


• » 


* 


O 


CL. 


rH 


rH 


* 


O 




*H 


•H 














T3 


# 


£ 


w 


rH 


rH 


# 


•H 


H 


Cn 
















£ 


■* 


£ 


£ 


£ 


cd 


* 


-P 


<d 


0 
















0 


* 


Pm 


CH 


u 


U 


* 


0 


> 


p 


















* 










■* 


£ 






















* 


* * 


* * 


* * 


# 




£ 






















'w» 












MH 











204 



cellcount (1, ’ len* 



* * 







•• 








P 






# 






r— 1 


d 












d 






f — 1 


•H 






a. 






cd 








cn 




• » 


d 






rH 






U 


<D 




P 


0> 












0) 


P 


• «k 


d 


• — i 






d 






<P 




o 


■H 








o 






M 


O 






ii 






•H 






mh 


H3 


II 


II 


M 




• «. 


4-> 










• • 


• * 








O 






ii 








rH 


• » 




d 


nd 




• # 


< 


MH 


cd 


(d 




II 


d 


d 








CD 


(d 


> 


d 


• • 


Ph 


(U 


<p 


*< 


P 


M 


P 


•H 


Q) 




* 




CO 




P 










d 


•— * 








*H 










a; 






a> 




3 










rH 


• •* 



*0 

S 



* 

* 

* 

* 



# 

* 

* 

* 



* 






Td 








* 


* 




»d 


rH 










* 




d 


d 








* 


* 




•H 


o 








* 


* 






3 








* 


* 














* 


* 




% 


m 








* 


* 




X 


Q) 








* 


* 






d 








* 


■* 




% 


rH 








* 






Q) 


cd 








* 


■* 




P 


> 








* 


* 




d 










* 


* 




P 










* 


* 




•H 


* 








* 


* 




IH 


A 








* 


* 




P 


m 








* 


* 




P 


CD 




U 




* 


* 




(d 


d 




a 




* 


* 






rH 




CD 




* 


* 




d 


(d 




nd 




* 






<d 


> 








* 


* 










% 




* 


•* 










P 




* 


* 




d 


% 




CO 




* 


* 




d 


X 




a> 






* 






V 




H 




* 


* 




% 










* 


* 




w 


II 








* 


* 




< 






p 




* 


* 






<s 




CO 




* 


* 










M 




* 


■* 




% 


M 




•H 




* 


* 




p 


o 




P 




* 


* 




CO 


MH 








* 


* 




•H 






% 




* 


•* 




rH 


% 




d 




* 


* 






# 




CO 




* 


* 




d 


CD 




co 




* 


* 




o 


t 




cd 




* 


«* 




• rH 


<D 




w 




* 


# 




P 






p 




* 


* 




(d 


% 








* 


# 




•H 


X 








* 


# 




u 










* 


* 




o 


M 




u> 




* 


* 




CO 


O 


• 


CO 




* 


* 




CO 


MH 


rtf 


a 




* 


* 




(d 




0) 


u 




* 


# 






CD 


d 


o 




* 


* 




d 


d 


M 


M 






* 




(d 


rH 


d 


M 




* 


* 


u 




(d 


P 


0) 




* 


* 


o 


d 


> 


CD 






* 


* 


CO 


a) 




M 


% 




■* 


* 


CO 


> 


Q) 




a, 




* 


* 


(d 


•H 


P 


<D 


rH 




* 


* 




O 


P 


P 


fH 


• • 


* 


* 










d 




* 


# 


d 


• • 






d 


JQ 


* 


* 


0 


a; 










* 


* 


•H 


CO 






• • 


n3 


* 


* 


P 


o 






to 


0) 




* 


u 


CU 






rH 


rH 






d 


M 






rH 


rH 


* 


* 


d 


d 






cd 


cd 




* 


Ph 


PH 






U 


u 


* 
















* 


* 


* * 


* 


* 


*• * 


* * 


* 


* 



* 

% •• 

c cd 

w ^ 



O 

O 

CO 

CO 

rd 

d 

o 

•H 

4-) 

U 

d 

d 



cd 



u 

<d 

> 



205 



list) : list; 



r, t: list; 
found: boolean; 
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end; (*while not*) 
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if diags then begin 



writeln('IN function pairlis we are linking 
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printval ( v) ; 
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Purpose: Prints the contents of any list by starting at the top of the* 
list tree and recursively calling itself on the head and tail* 



When an atom cell is found, the contents of it are immediate- 
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if diags then tegin 

yrite (• /tag is lst,ref= • , Isa), ref: 
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alf: begin 

if diags then 

write (' /tag is alf, ref= Isa), ref: 



while not (Isa), aval (. i. ) = ' ') do begin 

write (Isa), aval (. i. ) ) ; 
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* Called by: reaalist * 

***********************************************#*************************) 



procedure nonblank; 
begin 

while ch = * 'do begin 
if interac then 
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*************************************************************************} 
unction readlist: list; 
var L, C: list; 
begin 

if interac then 
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Purpose: Places real numbers in the proper cell as the program is 
being read. 
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n*10 + ord (ch) - ordfO 1 ) ; 
i + (n * (1/(exp (expo * In (10) ) ) ) ) ; 
:= expo +1: 
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* Called by: readval * 

*************************************************************************) 

unction readint: list; 
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cellcount(1, 'readint*); 



with la) do begin 
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if interac then 



read (infile / ch) ; 
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with AS do begin 
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(************************************************************************* 



Boolean function to recognize upper and lower case letters 
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******************************************************************* ***** *) 
unction readident: list; 
var a : al fa ; 
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A := freecell; 
with A3> do begin 
ref := 0; 
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* Called by: eval, letrec, evlis * 

unction eval (e, a: list): list; 
var T,C,e1p: list; 
el : alf a; 
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if empty then begin 
new (C, alf) ; 
cellcountM, 'eval') ; 
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3 if el = 'let' then begin 
(*if diags then begin 
writeln ('rest (e) ' ) ; 
printval (rest (e) ) ; 



writel n (’ first (rest (e) ) ’) ; 
print val (f irst (r est (e) ) ) ; 
writeln; 

writel n (’first (rest (first (rest (e) )) ) ’) 
printval (first (rest (first (rest (e) ) ) ) j ; 
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new (L, 1st); cellcount(1, ’letrec') end 
else L := freecell; 
if empty then begin 

new(B, 1st); cellcou r.t ( 1 , 'ietrec') end 
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with L3 do begin 
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ptrassn (tail, M) 



ptrassn (head, D) ; 
tail : = nil; 
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* Called by; eval * 

*******************♦***************************************♦*************) 
function evcon ; 
var B: list; 
begin 
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else begin 

(♦Evaluate false consequent*) 
if diags then begin 
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if f <> nil then 

fa). ref := fa). ref + 1; 
if x <> nil then 

xS.ref := xa).ref + 1; 
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if diags then begin 



writeln('IN applyprim this is cjoiny to rest') 
printval(first(x) ); 






to 

d 

O 

o 

o 

p 

to 

0) 

d 

•H 



P 

•P 

G 

3 



d 

0 ) 



























CN 






















X 










N 








X 










— " 






P 








d 














p 


d 




X 








•P 




P 










to 


•P 




Q) 








Cn 




to 










G 






d 




-p 




Q) 




G 




CM 




d 


•P 


CD 








to 




JO 




•H 




T— 




<D 


P 


JO 




<D 


• « 


H 








4-1 








f r* 










, % 


•P 




d 












P 




G 




p 


*-s 


4-1 












m 






•P 


Q) 






X 






-d 


d 


P 




a 




* 


n3 


r— 


d 






' 




P 


a 


to 




•p 




H 


•P 


P 


•P 


d 


P 


-P 






rG 


0) 




G 




d 


P 




Cn 


•P 


to 


to 




m 


P 


Pi 




O, 




•P 


•P 


m 


(U 


p 


G 


Q) 




G 








o, 




P 


d 


to 


JO 


d 


•P 


G 




04 




II 




03 




•P 


•P 


d 




CD 


P 






CD 


X 


• # 








d 




0 


d 


to 


— 10 


II 




G 




3 








•P 


II 


U 


<D 


•* 




• • 




m 


P 


•H 




m 




a» 


• » 


m 


JO 


s — * 


rp 








<D 


PI 




to 










p 


d 


03 


a 




II 


to 


04 




a 




II 


a 


II 




rp 


> 


•H 






G 


>1 




G 






•p 




to 


CD 


P 


G 




t— 


•P 


•H 




O 




r- 


G 


t— 


cr> 


P 


d 


04 




P 


4-1 


04 




G 




P 


O. 


P 


d 


•P 


•P 


>1 






to 


o, 




G 






>i 




•P 


G 


G 


fH 




4-1 


•H 


d 


<D 


0) 




P 


rp 


P 


T3 




O. 


04 


T3 


•P 






to 




T3 


•P 


o. 


•P 








a, 


d 




P 




•H 




d 




04 




P 






03 


Q) 


CD 


•H 




Q) 




0) 


0) 


<d 




•P 










to 












to 




to 












rp 












1 1 




rp 












0) 












0) 




Q) 









0J 

-P 

•P 

G 



0 ) 

P 

•P 

Pi 

* 



240 



printval (first (rest (x) ) ) ; 
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applyprim := , sub (fi r st (x) , first (rest (x) ) ) 
e if fl = 'memb' then 

applyprim := memb (first ( x) , first (rest (x) ) ) 
e if fl = 'egual* then 

applyprim := equal (first (x) , first (rest (x) ) ) 



;e if fl = 'GT» then 

applyprim := GT(first(x), first (rest (x) } ) 
;e if fl = ’LT ' then 

applyprim := LT(first(x), first (rest (x) ) ) 
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(***********************************************************%************* 
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xa).ref := xa).ref + 1; 
if callonly or diags then begin 



writeln('IN function apply; the function is: 1 ) 
print val ( first (f ) ) ; 
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ialize the array for the cell creation information*) 

:= 1 to 26 do begin 

with counts (.k.) do begin 

modul := ’empty’ ; 

cellcnt : = 0 ; 



(*Build the association list for the primitive operations*) 
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dcprim(*GT' / primitives) ; 
dcprimCLT', primitives); 
dcprimCGE', primitives); 
dcprim('LE', primitives) ; 
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♦Determine whether the program is to be interactively typed in or read 
from a file by checking the number of arguments on the command line. 

If there are two arguments and the second one is *i ' the session is to 
be interactive, otherwise, prompt the user for the filename (1..80 cha 



argc = 1 then begin 

writeln ( ' File ELC program to be read from: 
filearg := readfname; 
reset (inf ile , filearg) ; 
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writeln (’ Enter Expression’) 



temp : = readval; 
if diags then begin 

wri teln (' Expression after reading*); 
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User time = The amount cf time actually spent obeying the instruc- 
tions in the user's program*) 
writeln (' System time was ' ,sysclock : 1 0 , * milliseconds'); 



writeln (' User time was ’ jCiockilO,' milliseconds’ 



g 

o 

•H 

P 

G 

Q) 

G 

u 



P 

o 

0 ) 

P 

P 

cn 

G 

•H 

G 





. — » 


. — „ 




G 




•H 




















m 




P 




cn 


















+ 


— 


— 


G 




a> 










+ 








1 






0 




p 










i 








1 






u 








P 






i 








1 


P 


1 






o 




G 






i 








1 


<p 


1 


>1 




p 




O 






i 


• • 






1 


p 


1 


(d 








P 






i 








1 


G 


1 


G 








P 






i 


m 






1 


0 


1 


G 








0) 






i 


p 






1 


G 


1 


G 




p 




o 






i 


p 






1 


o 


1 






a, 




* 






i 


V 






I 




1 


a> 




a 




- 






i 


a 






1 


w 


1 


p 














i 


3 






1 


P 


1 


p 




» 










i 


0) 






1 


rH 


1 


















G 






1 


u> 


1 


p 




A 










1 


% 






1 


U 


1 


o 




V 










i 








1 














»■ 






i 








1 






w 




H 










i 








1 






p 




3 




p 






i 








1 






G 




3 


O 


G 






i 








1 






<P 




0 


p 


P 






i 


W 






1 






P 




a 




o 






i 


P 






1 






G 




• 




a 






i 


P 






1 






O 






• 


% 






i 


0) 






1 






u 




• 


•H 








i 


o 






1 


V 


1 








• 


— 






i 








1 


rH 


1 


a> 




• 


— " 








i 


p 






1 


G 


1 


p 


* 




w 


— * 






i 


G 






1 


P 


1 


p 


• 




p 


G 






i 


P 






1 


o 


1 




G 


U) 


G 


P 


• •» 




i 


o 






1 


s 


1 


p 


O 


p 


G 


0) 


’f— 




i 


EH 






+ 


— • 


— > 


G 


•H 


G 


O 


P 


+ 




+ 














O 


P 


g 


u 


•H 


P 










• •* 


* — * 








<d 


o 




G 






— * 




• K 


G 


g 


G 


G 


P 


s 


u 


p 


3 


It 


• * 


G 


G 


G 


P 


P 


rH 




G 


G 




p 




• • 


P 


P 


P 


P 


Q) 


(V 


a> 


0) 


*H 


O 


0) 


•H 






G 


<D 


a> 




P 


P 


p 


P 


G 


MH 


rH 


3 




P 


a; 


P 


p 


P 


•H 


•H 


•H 


■H 


cu 


G 


•H 










•H 


•H 


•H 


G 


G 


G 


G 


•if 


•H 


P 










G 


G 


G 


3 


3 


3 


3 






3 










3 


3 


3 



252 



end. (*Program func*) 
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